オプションの淡色を伴う 12 種類の Office テーマカラースロットのいずれかにエッジごとの罫線色を設定します
Border.Color。すべての辺セレクター (上、下、左、右、斜め、および複合セレクター xlAround、xlInsideVertical、xlInsideHorizontal、xlInsideAll) で利用できます。v2.61.0 以降で利用可能。複合セレクターの経路は v2.63.0 で完成しました (wave D フェーズ 6)
構文
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
の範囲における仕様準拠の明るさ/暗さ調整 nTintShade
備考
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 スロットを登録します。
xlAround registers
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical registers
{rsLeft, rsRight};
xlInsideHorizontal registers
{rsTop, rsBottom};
xlInsideAll registers all four. Read-back through
Border.Color 複合セレクタは内部スロットセットヘルパーを使用して単一のセルループパスで物理エッジごとに 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;
関連項目