| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите код из VBA для Excel перевети на Delphi [D7, Win95/98, Win2k, WinXP]

OlegM ©   (2005-03-17 09:10:00) 

Подключаюсь к 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
-------------------------

---

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

Спасибки)

---

Digitman   (2005-03-17 12:10:00) [2]

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

---

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

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

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

---

Digitman   (2005-03-17 10:10:00) [4]

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


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

---

Наверх