All Forums
 Категория Visio
 Форум Вопросы и ответы
 Доступ к объектной модели Visio через VB 6.0
Author Previous Topic Topic Next Topic  

evgenia_e

Germany
22 Posts
Posted - 03/11/2004 :  15:56:29
Я создаю add-on на Visual Basicе. Подскажите, как мне из него добраться до объектной модели Visio. Из VBA в Visio я могу добраться так: ActivePage.Shape(1).Name . Как осуществить то же самое, но через add on?

Tumanov

Russia
1198 Posts
Posted - 03/11/2004 :  18:01:54
Задача - найти приложение, остальное так же, как и в VBA.
Если Visio уже открыто, то приложение находится функцией GetObject
Dim VisObj As Visio.Application
Set VisObj = GetObject(, "Visio.Application")
VisObj.ActivePage.Shapes(1).Name

Если Visio не запущено, то создается функцией CreateObject
Dim VisObj As Visio.Application
Set VisObj = CreateObject("Visio.Application")
VisObj.ActivePage.Shapes(1).Name

Да посмотрите, например, в Библиотеке статью Внешняя программа для Visio. Там все написано.
Go to Top of Page

evgenia_e

Germany
22 Posts
Posted - 03/11/2004 :  22:13:45
Спасибо!!!!
Go to Top of Page
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)