Форум пользователей Visio

Форум по вопросам применения и программирования в Visio
Текущее время: 28 мар 2024, 15:54

Часовой пояс: UTC + 3 часа [ Летнее время ]


Правила форума


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)
Размещая ваши вложения на форуме не используйте имена файлов содержащих кириллицу, в противном случае файл будет иметь имя .<расширение файла> !

Для форматирования ваших сообщений используйте BBCodes, описание используемых на форуме BBCodes.



Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
 Заголовок сообщения: Запуск макроса при смене страницы
СообщениеДобавлено: 27 апр 2022, 15:07 
Не в сети

Зарегистрирован: 05 апр 2022, 13:01
Сообщений: 4
Использую Visio c: 2013
Уровнь квалификации: Программирование
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Здравствуйте.
Подскажите, как организовать запуск макроса при событии переключения со страницы на страницу? В модуле ThisDocument присутствует возможность использовать события только для Документа, а там нет подходящих событий.
В документации есть Window.BeforeWindowPageTurn, но как это использовать непонятно.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Запуск макроса при смене страницы
СообщениеДобавлено: 27 апр 2022, 16:27 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
visiogetbb писал(а):
В документации есть Window.BeforeWindowPageTurn, но как это использовать непонятно.
это событие должно работать работать с объектом Window.
который нужно предварительно объявить
Dim WithEvents wn As Visio.Window
Список событий объекта Window.
Код:
Dim WithEvents wn As Visio.Window
Public Sub StartRunMode()
    Set wn = ActiveWindow
End Sub
Public Sub StopRunMode()
    Set wn = Nothing
End Sub
Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
    Set wn = ActiveWindow
End Sub
Sub ddd()
MsgBox "Activated page: " & ActivePage.Name
End Sub

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Запуск макроса при смене страницы
СообщениеДобавлено: 27 апр 2022, 22:11 
Не в сети
Ветеран

Зарегистрирован: 26 авг 2019, 21:07
Сообщений: 267
Использую Visio c: 2019
Очков репутации: 11

Добавить очки репутацииУменьшить очки репутации
Щущуть подправил :idea:
Код:
Dim WithEvents wn As Visio.Window
Public Sub StartRunMode()
    Set wn = ActiveWindow
End Sub
Public Sub StopRunMode()
    Set wn = Nothing
End Sub
Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
    Set wn = ActiveWindow
End Sub
Sub ddd()
MsgBox "Ушли со стр: " & ActivePage.Name
End Sub
Private Sub wn_BeforeWindowPageTurn(ByVal Window As IVWindow)
    ddd
End Sub
Содержимое спрятано под спойлер ↓
Спойлер:
Изображение

_________________
САПР-АСУ
https://github.com/gtfox/
YouTube


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Запуск макроса при смене страницы
СообщениеДобавлено: 28 апр 2022, 13:19 
Не в сети

Зарегистрирован: 05 апр 2022, 13:01
Сообщений: 4
Использую Visio c: 2013
Уровнь квалификации: Программирование
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Да, это больше похоже на правду.
Спасибо.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 4 ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB