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

Excel. Как управлять автофигурами.   Найти похожие ветки 

← →
Well   (2005-12-13 13:56) [0]

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

Фигуру я нарисовал, а линию, прозначность установить не смог.

---

← →
evvcom ©   (2005-12-13 13:58) [1]

Воспользуйся, как его уже сегодня назвали однажды, "магнитофоном".

---

← →
ищущий ответ   (2005-12-13 14:48) [2]

Посмотри здесь: http://www.kornjakov.ru/stat.htm#s6. Может поможет.

---

← →
Well   (2005-12-13 14:53) [3]

evvcom
В смысле записью макроса?
Я им пользуюсь, но VB не Delphi и не CBuilder , команды не совпадают, нарисовать фигуру ума хватило, а вот отловить автофигуру и изменить её параметры пока не получается :(.

---

← →
TStas ©   (2005-12-13 18:21) [4]

>evvcom
То есть не все экселевкие методы можно через СОМ интерфейс вызвать?

---

← →
Думкин ©   (2005-12-14 07:10) [5]

А в чем проблема?
Есть коллекция ActiveSheet.Shapes. Есть ее экземпляры.

Shape := Sheet.Shapes.AddShape(1, 116.25, 91.5, 166.5, 255.75);
Shape := Sheet.Shapes.AddShape($5A, 350.25, $84, 169.5, 168.75);
Shape.Fill.Visible := True;
//Shape.Fill.Solid := true;
Shape.Fill.ForeColor.SchemeColor := 53;
Shape.Fill.Transparency := false;
Shape.Line.Weight := 0.75;
Shape.Line.DashStyle := 2;
Shape.Line.Style := 1;
//Shape.Line.Transparency := true;
//Shape.Line.Visible := True;
Shape.Line.ForeColor.SchemeColor := 13;
Shape.Line.BackColor.RGB := clBlue;

Значения констант, для каждой версии офиса - можно посмотреть в
"c:\Program Files\Borland\Delphi7\Ocx\Servers\Office*.pas"

То что закомментированно - менять надо иначе. А вот как - надо пошариться.

---

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

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



Память: 0.46 MB
Время: 0.018 c