Помогите код из 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]

Спасибки)

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