Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.047 c