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

Sergei

8 Posts
Posted - 06/25/2004 :  06:26:12
Sub VISO()
Dim wdApp As Visio.Application
Set wdApp = CreateObject("Visio.Application")
wdApp.Documents.Open ("C:\1.vsd") 'здесь указать путь к файлу
wdApp.ActiveWindow.Page = "1" 'здесь указать номер страницы
End Sub
Эта процедура из среды Microsoft Office Access позволяет открыть
существующий файл Visio на той странице которую ему укажут.
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)