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 , команды не совпадают, нарисовать фигуру ума хватило, а вот отловить автофигуру и изменить её параметры пока не получается :(.

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

А в чем проблема?
Есть коллекция 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"

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

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