SetThemeColor メソッド (IXLSBorder)

オプションの淡色を伴う 12 種類の Office テーマカラースロットのいずれかにエッジごとの罫線色を設定します

構文

procedure SetThemeColor(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 の範囲における仕様準拠の明るさ/暗さ調整

備考

Interior / Font セッターと同じデュアルワイヤ出力：

XF レコードには、Excel 97-2003 互換性のため、対応するエッジスロットに最適一致の indexed icv を設定します
XFExt $087D レコードには、対応する border extType ($0007 top, $0008 bottom, $0009 left, $000A right, $000B diagonal) の FullColorExt スロットを xclrType=3 と xclrValue=ThemeIdx 付きで設定します

複合セレクタは内部スロットセットヘルパーを使用して単一のセルループパスで物理エッジごとに 1 つの XFExt スロットを登録します

BIFF8 FullColorExt は対角線カラーを 1 つしか持てないため、xlDiagonalDown と xlDiagonalUp は同じ XFExt スロット (rsDiag) を共有します

使用例

accent4 (テーマカラー) でレポートバンドを囲み、25% 明るい淡色で内側の accent5 セパレーターを追加します

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;

構文

パラメーター

備考

使用例

関連項目