Visio - Автоматизация

All Forums

Категория Visio

Форум Вопросы и ответы

Автоматизация

Author

Topic

Sergei

8 Posts

Posted - 06/20/2004 : 12:26:03

Sub открытиефайла()
'открываем существующий документ
Dim stAppName As String
stAppName = "C:\Program Files\Microsoft Office\Visio10\Visio.exe C:\1.vsd"
Call Shell(stAppName, 1)
Dim dok As Visio.Document
Dim list As Visio.Page
Set dok = GetObject("C:\1.vsd")
'добавляем в существующий документ лист
Set list = dok.Pages.Add
End Sub

строка кода Set list = dok.Pages.Add добавляет в открытый документ
новый лист а как будет выглядеть строка которая произведет перключение
с одного листа на другой
(в Exel например это wbk.Worksheets("Page 1").Activate
где Dim wbk As Excel.Workbook Page 1 имя листа)
"Спасибо"

Edited by - Sergei on 06/20/2004 14:21:11

Tumanov

Russia
1198 Posts

Posted - 06/20/2004 : 14:12:34

Несколько дней назад был аналогичный вопрос. Цитирую:

Подскажите, как с помощью Visual Basic в активном документе Visio перейти на другую страницу?
Спасибо.
====================================
ActiveWindow.Page = "Page-1" покажет страницу с именем Page-1.

Sergei

8 Posts

Posted - 06/20/2004 : 14:23:16

А что может обозначать сообщение ActiveX component can't create object?

Topic

Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)