Встановлює колір рамки краю до одного з 12 слотів кольорів теми Office з необов'язковим відтінком. Тематичний аналог
Border.Color. Доступний для кожного селектора краю (верхній, нижній, лівий, правий, діагональний, а також складені селектори xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). Доступно з версії v2.61.0; шлях складених селекторів завершено у v2.63.0 (хвиля 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
Кодується в XFExt FullColorExt як 15-бітне ціле число зі знаком в nTintShade
Примітки
Та сама подвійна емісія дроту, що й у сетерів Interior / Font:
- Запис XF отримує індексований icv найближчого збігу на відповідному гнізді ребра для сумісності з Excel 97-2003
- Запис XFExt $087D отримує слот FullColorExt для відповідного extType межі ($0007 top, $0008 bottom, $0009 left, $000A right, $000B diagonal) з
xclrType=3 і xclrValue=ThemeIdx
Складені селектори реєструють один слот XFExt на кожен фізичний край за один прохід циклу по комірках через внутрішній допоміжний засіб набору слотів.
xlAround реєструє
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical реєструє
{rsLeft, rsRight};
xlInsideHorizontal реєструє
{rsTop, rsBottom};
xlInsideAll реєструє всі чотири. Зчитування через
Border.Color повертає вирішений RGB
BIFF8 FullColorExt зберігає лише один діагональний колір, тому xlDiagonalDown і xlDiagonalUp спільно використовують той самий слот XFExt (rsDiag)
Приклад
Обводить смугу звіту кольором accent4 (колір теми) та додає внутрішній роздільник accent5 зі світлішим відтінком на 25%
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;
Дивіться також