Legt die Rahmenfarbe pro Kante auf einen der 12 Office-Design-Farbschemas mit optionaler Tönung fest. Design-Begleiter von
Border.Color. Verfügbar für jeden Kanten-Selektor (oben, unten, links, rechts, diagonal sowie die zusammengesetzten Selektoren xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). Verfügbar seit v2.61.0; der zusammengesetzte Selektorpfad wurde in v2.63.0 vervollständigt (Welle D Phase 6)
Syntax
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Parameter
ThemeIdx — 0-basierter Design-Slot
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — spec-konformer Aufhellungs-/Abdunkelungs-Anpassungswert im Bereich -1,0 .. +1,0
Kodiert in den XFExt-FullColorExt als Q15-vorzeichenbehaftete Ganzzahl in nTintShade
Hinweise
Gleiche doppelte Wire-Emission wie die Interior / Font-Setter:
- Der XF-Datensatz erhält für den passenden Randplatz ein bestpassendes indiziertes icv für die Kompatibilität mit Excel 97-2003
- Der XFExt-Datensatz $087D erhält einen FullColorExt-Platz für den passenden Rand-extType ($0007 oben, $0008 unten, $0009 links, $000A rechts, $000B diagonal) mit
xclrType=3 und xclrValue=ThemeIdx
Zusammengesetzte Selektoren registrieren in einem einzigen Zellschleifendurchlauf über die interne Slot-Set-Hilfsfunktion einen XFExt-Slot pro physischer Kante.
xlAround registriert
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical registriert
{rsLeft, rsRight};
xlInsideHorizontal registriert
{rsTop, rsBottom};
xlInsideAll registriert alle vier. Das Zurücklesen über
Border.Color gibt das aufgelöste RGB zurück
BIFF8-FullColorExt trägt nur eine einzelne Diagonalfarbe, daher teilen sich xlDiagonalDown und xlDiagonalUp denselben XFExt-Slot (rsDiag)
Beispiel
Umrahmt ein Berichtsband mit accent4 (Designfarbe) und fügt einen inneren accent5-Separator mit 25% hellerer Tönung hinzu
var
Report: IXLSRange;
begin
Report := Workbook.Sheets[1].Range['A1', 'F20'];
Report.Borders[xlAround].SetThemeColor(7, 0.0);
Report.Borders[xlInsideHorizontal].SetThemeColor(8, 0.25);
Workbook.SaveAs('ThemedBorders.xls', xlExcel97);
end;
Siehe auch