| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Excel. Как управлять автофигурами.
Well © (2005-12-13 13:56:00)Мне надо из программы нарисовать скруглённый прямоугольник, сделать его прозначным и установить заданную толщине линии.
Помогите, может у кого есть кусочек кода для примера.
Фигуру я нарисовал, а линию, прозначность установить не смог.
Думкин (2005-12-14 07:10:00) [1]А в чем проблема?
Есть коллекция 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"
То что закомментированно - менять надо иначе. А вот как - надо пошариться.
TStas (2005-12-13 18:21:00) [2]>evvcom
То есть не все экселевкие методы можно через СОМ интерфейс вызвать?
Well (2005-12-13 14:53:00) [3]evvcom
В смысле записью макроса?
Я им пользуюсь, но VB не Delphi и не CBuilder , команды не совпадают, нарисовать фигуру ума хватило, а вот отловить автофигуру и изменить её параметры пока не получается :(.
ищущий ответ (2005-12-13 14:48:00) [4]Посмотри здесь: http://www.kornjakov.ru/stat.htm#s6.Может поможет.
evvcom (2005-12-13 13:58:00) [5]Воспользуйся, как его уже сегодня назвали однажды, "магнитофоном".
| |
