Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Вниз

Млин, все тот же Excel... 


Aleksandr   (2001-12-24 18:11) [0]

Тут за такие вопросы посылали... к поиску. Вот кто посылал, тот пусть и посмотрит, как поиск ищет. Столбец уже удаленных мессагов, и усе, а остальное не в счет.
А проблема такая:
Заполняю я таблицу Эксель данными, по ходу форматируя их...
var
Range : TExcel97.Range;
ExApp : TExcelApplication;
...
Range.Value:=he_Type;
Range:=Range.Next;
Range.Value:=he_Country; ...//тексты вошли, порядок
ExApp.Range["A1",TExcelLetters[8]+IntToStr(Row)].Font.Italic:=true; //шрифт италиком стал, тоже ок.
ExApp.Range["A1",TExcelLetters[8]+IntToStr(Row)].Font.Color:=he_FontColor; //шрифт закрасился, тоже ок.
ExApp.Range["A1",TExcelLetters[8]+IntToStr(Row)].Font.BackGround:=he_Color; //вот тут облом. Говорит, что не может выполнить это дело...

Вопрос: А как тогда заливку сделать?



Digitman   (2001-12-24 18:21) [1]

With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

этот работающий фрагмент Excel-макроса, изменяющего цвет заднего плана, тебе говорит о чем-нибудь ? Есть ли здесь хоть какое-то упоминание о Font.Background ?



Aleksandr   (2001-12-24 18:40) [2]

2 Digitman
Зато у ExcelApplication.Range.Font есть пропертя BackGround, не так ли?



Digitman   (2001-12-24 18:46) [3]

Зато, если бы ты VBA help почитал, увидел бы, что возможные значения св-ва Range[..].Font.Background :
xlBackgroundAutomatic, xlBackgroundOpaque, xlBackgroundTransparent

и никаких he_Color там и в помине нет)



Aleksandr   (2001-12-24 18:48) [4]

Ну нету у меня VBA Help... Вопрос-то в том, как фон залить все-таки...



Digitman   (2001-12-24 18:52) [5]

Как залить опред.цветом - я тебе фрагмент макроса дал. Макрос-то и сам бы записать мог да посмотреть, как это сам Excel делает. При чем здесь хэлп ? Долго что ли VBA в Pascal переделать ?



Aleksandr   (2001-12-24 20:08) [6]

может, тогда заодно фрагмент макроса для того, чтобы этот драный эксель строки типа "16:00" не преобразовывал, дашь?




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.043 c
1-42479           cpp                   2001-12-25 13:11  2002.01.14  
Как изменить свойство в EXE


6-42533           Knight                2001-10-17 17:55  2002.01.14  
Решил использовать УДП но метода коннект не нашёл...


1-42435           Phisio                2001-12-24 15:01  2002.01.14  
Выбор нескольких объектов


3-42392           Shoo                  2001-12-13 13:20  2002.01.14  
Вставка записей в 2 таблицы


4-42636           Xeon                  2001-11-10 19:57  2002.01.14  
Программа и ОЗУ