All Forums
 Категория Visio
 Форум Вопросы и ответы
 Открыть файл Visio из другого приложения
Author Previous Topic Topic Next Topic  

Sergei

8 Posts
Posted - 06/22/2004 :  09:39:34
Скажите какими командами VBA можно открыть существующий файл Visio
из другого приложения чтобы он был доступен пользователю для редактирования (практически открыть как выполнить переход по
гиперссылке) без использования автоматизации ?

immortal77

30 Posts
Posted - 07/13/2004 :  07:00:32
во первых из какого приложения?
в начале модуля пишешь:
Option Explicit
Public vis As Object
далее в процедуре:
on error resume next
Set vis = GetObject(, "Visio.Application")
filenam = "полный путь к файлу"
vis.Application.Documents.OpenEx filnam, visOpenRW '- открыть файл
vis.Application.Windows.ItemEx(filenam).Activate '- показать файл (сделать активным)

тут идут команды работы с файлом

vis.Application.ActiveWindow.Close '- закрыть файл

ну чтото типа этого (вобше делается аналогично для ексель, ворд)
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)