Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.27;
Скачать: CL | DM;

Вниз

Помогите код из VBA для Excel перевети на Delphi   Найти похожие ветки 

 
OlegM   (2005-03-17 09:10) [0]

Подключаюсь к Excel так и вродебы все нормально, добавляю обьект а вот как к его свойствам добраться незнаю, добавляется прямоугольник и мне нужно его закравить и немогу никак

var
xlap, xl: variant;
begin
xLap := CreateOLEObject("Excel.Application");
xlap.workbooks.add;
xl := xlap.Workbooks[1].Sheets[1];
xl.Shapes.AddShape(1,100,100,1000,1000).Select;

Код закраски
-------------------------
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 49
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
-------------------------


 
Digitman ©   (2005-03-17 10:10) [1]


> немогу никак


конкретней ..


 
OlegM   (2005-03-17 11:30) [2]

Закрасить тот прямоугольник который только что добавил
xl.Shapes.AddShape(1,100,100,1000,1000).Select;

код закраски
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 49


 
Digitman ©   (2005-03-17 12:10) [3]

ну наверно так :
xlap.Selection.ShapeRange.Fill.ForeColor.SchemeColor := 49


 
OlegM   (2005-03-17 14:43) [4]

Спасибки)



Страницы: 1 вся ветка

Текущий архив: 2005.03.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.044 c
9-1100799849
Xerx
2004-11-18 20:44
2005.03.27
OpenGL, текстурирование и пересечения


9-1104316737
Trimp
2004-12-29 13:38
2005.03.27
Как задать SmoothNormal?


1-1111013071
Morrison
2005-03-17 01:44
2005.03.27
Как организовать запрос пароля?


1-1110563318
redlord
2005-03-11 20:48
2005.03.27
перебор рантайм объектов


3-1109154080
serg128
2005-02-23 13:21
2005.03.27
Помогите с LookUp полями!