SetPatternThemeColor メソッド

オプションの淡色調整を伴う 12 種類の Office テーマカラースロットのいずれかにセルパターン (背景) 色を設定します

構文

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 の範囲における明るさ/暗さ調整

備考

呼び出しごとに 2 つのワイヤが出力されます

XF レコードには、パターン色用の最適一致 indexed icv を設定します（旧リーダーパス）
XFExt $087D レコードには、fillBg extType ($0005) の FullColorExt スロットを xclrType=3（theme）、xclrValue=ThemeIdx、nTintShade を Tint から派生させた値として設定します

Interior.PatternColor による読み取り時は解決された RGB が返されます

使用例

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;

構文

パラメーター

備考

使用例

関連項目