![]() |
Форум visio.getbb.ru |
О форумах
Библиотека | Частые вопросы | Литература | Склад материалов Visio Navigator | Blog | Полезные ссылки | О сайте История Visio | Продукты Visio |
Для русскоязычных пользователей Visio. Начинающих и профессионалов. Где взять, как сделать, что купить и т.д. |
07.02.2022
03.02.2022
14.06.2014
14.06.2014
01.12.2005
01.10.2004
Delphi und Visio 2007
Хотел просить помощи так как в данный момент пытаюсь работать в visio через Delphi. Передо мной стоит следующая задача: необходимо в ActiveX DrawingControl нарисовать (программно) простейшие шейпы и сохранить на диск. Конкретно я не могу найти описание процедур работающих с DrawingControl.
Да пожалуйста
var F: Variant; begin F := DrawingControl1.Document.Application.ActiveWindow.Page.Application; F.Documents.OpenEx('basic_m.vss',64); F.ActiveWindow.Page.Drop(F.Documents.Item('BASIC_M.VSS').Masters.ItemU('Square'), 10,10);
Соответственно, первая строчка - получение ссылки на объект Visio; вторая - открываем закладку basic; третья - бросаем элемент на активный лист.