Управление Ecxel при помощи Delphi

[nikolai_P]

Добрый день!

Я пишу программу которая будет строить отчет в Excel. Встал в тупик во с чем.

На VBA изменить цвет ячейки и цвет шрифта можно так:

    Range("A1:E6").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With

При использовании конструкций ".Interior.ThemeColor = xlThemeColorAccent1" и " .Font.ThemeColor = xlThemeColorDark1" Delphi выдает ошибку.

Вопрос: "Можно ли в Delphi посредством стандартной цветовой схемы RGB задавать цвет ячейкам и шрифту?"

[cherry25]

если я правильно вас поняла, то:

var
colum:variant;

begin
Colum:=XLApp.Workbooks[1].WorkSheets['Имя_листа'].Columns;
Colum.Rows[1].Font.Color:=clRed;
end;

Этот код поменяет цвет текста на красный

[nikolai_P]

Попробую переформулировать вопрос:

"Как получить доступ к палитре цветов Excel и сделать возможность ее выбора в Delphi?"

[Kotofff]

http://www.programmersforum.ru/showp...5&postcount=15
В этой книге есть все по твоей теме ...

[nikolai_P]

Уважаемый, Kotofff!

К моему большому сожалению у меня ограниченный доступ к интернету. По этой причине я не могу скачать эту книгу.
Поиски в яндексе тоже не дали результатов по интересуемой тематике. Так что буду рад любой полезной ссылке или коду!

[nikolai_P]

Записываем макрос:
1. Цвет заливки
2. Другие цвета
3. Выбираем спектр
4. Ставим нужный RGB

У меня получилось следующее

   With Selection.Interior
        ...
        .Color = 16777215 //белый цвет (255, 255, 255)
        ...
    End With

    Range("B1").Select
    With Selection.Interior
        ...
        .Color = 0 //черный цвет (0, 0, 0)
        ...
    End With

   Range("С1").Select
    With Selection.Interior
         ...
       .Color = 10062592 //цвет морской волны (0, 139, 153)
        ...
    End With

Осталось теперь только определить функцию по которой Excel RGB переводит в простое число.

У кого какие идеи?

[Kotofff]

Кусок одного форума :

WordFunc.pas - http://kinsmarino.narod.ru/soft/WordFunc.pas
ExcelFunc.pas - http://kinsmarino.narod.ru/soft/excelFunc.pas

Для заполнения шаблонов Word и Excel вполне достаточно.
Проверено и отработано в Delphi7+Office 2000.

[ArtInt]

Вместо цифр можно сразу писать цвет RGB
Пример макроса
Sub Макрос1()
'
' Макрос1 Макрос
'

'
Range("E2").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = RGB(0, 255, 0)
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Кстати, не уверен, но вроде для того чтобы использовать конструкции ".Interior.ThemeColor = xlThemeColorAccent1" и " .Font.ThemeColor = xlThemeColorDark1" нужно в uses прописать ComObj, WordXp

[nikolai_P]

А вот и ответ...
Заливаем ячейку цветом через RGB.

WSheet.Cells[1,1].Interior.Color := RGB(0,139,153);

[nikolai_P]

Всем спасибо за помощь!
Что-то с форумом не сразу увидел Ваши сообщения)