將儲存格圖樣（背景）色彩設定為 12 個 Office 佈景主題色彩插槽之一，並帶有選用色調調整。這是
Interior.SetThemeColor 的圖樣色彩配套方法 — 搭配非實心
圖樣使用，以在 Excel 重新套用活頁簿佈景主題時重新套用色調的影線/點狀填滿。自 v2.61.0（圖表待辦清單 wave D 第 4 階段）起可用
語法
procedure SetPatternThemeColor(ThemeIdx: Word; Tint: Double);
參數
ThemeIdx — 以 0 為基底的佈景主題插槽
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — 規格樣式的明暗調整，範圍 -1.0 .. +1.0
以 Q15 帶正負號整數形式編碼至 XFExt 記錄上 FullColorExt.nTintShade
備註
每次呼叫輸出兩條線路，使儲存格在 Excel 2007+ 和 Excel 2003 中均能正確呈現：
- XF 記錄會為圖樣顏色取得最佳匹配的索引 icv（傳統讀取器路徑）
- XFExt $087D 記錄會為
fillBg extType（$0005）取得 FullColorExt 欄位，並帶有 xclrType=3（theme）、xclrValue=ThemeIdx 與由 Tint 推得的 nTintShade
範例
使用 accent1 / accent2 佈景主題插槽呈現條紋警告帶，使色彩跟隨活頁簿佈景主題
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;
另請參閱