Legt die Zellmuster-(Hintergrund-)Farbe auf einen der 12 Office-Design-Farbschemas mit optionaler Tönung fest. Dies ist der Musterfarben-Begleiter von
Interior.SetThemeColor — verwenden Sie ihn zusammen mit einem nicht-festen
Muster, um Schraffur-/Punkt-Füllungen zu rendern, die bei Anwendung des Arbeitsmappen-Designs durch Excel erneut getönt werden. Verfügbar seit v2.61.0 (Diagramm-Rückstand Welle D Phase 4)
Syntax
procedure SetPatternThemeColor(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
In FullColorExt.nTintShade als Q15-vorzeichenbehaftete Ganzzahl im XFExt-Datensatz kodiert
Hinweise
Für jeden Aufruf werden zwei Drähte emittiert, damit die Zelle sowohl in Excel 2007+ als auch in Excel 2003 korrekt gerendert wird:
- Der XF-Datensatz erhält für die Musterfarbe ein bestpassendes indiziertes icv (legacy reader path)
- Der XFExt-Datensatz $087D erhält einen FullColorExt-Platz für den
fillBg-extType ($0005) mit xclrType=3 (Theme), xclrValue=ThemeIdx und nTintShade, abgeleitet aus Tint
Das Zurücklesen über
Interior.PatternColor gibt das aufgelöste RGB zurück (Design + Tönung angewendet), sodass Aufrufer immer einen konkreten LongWord-Wert sehen
Beispiel
Rendert ein gestreiftes Warnungsband mit den accent1-/accent2-Design-Slots, sodass die Farben dem Arbeitsmappen-Design folgen
var
Stripes: IXLSRange;
begin
Stripes := Workbook.Sheets[1].Range['B2', 'B10'];
Stripes.Interior.Pattern := xlPatternGray25;
Stripes.Interior.SetThemeColor(4, 0.4); // fill foreground (accent1, lighter)
Stripes.Interior.SetPatternThemeColor(5, - 0.25); // pattern color (accent2, darker)
Workbook.SaveAs('PatternThemeFills.xls', xlExcel97);
end;
Siehe auch