Форум пользователей Visio
http://visio.getbb.ru/

Запуск макроса при смене страницы
http://visio.getbb.ru/viewtopic.php?f=6&t=1802
Страница 1 из 1

Автор:  visiogetbb [ 27 апр 2022, 15:07 ]
Заголовок сообщения:  Запуск макроса при смене страницы

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

Автор:  Surrogate [ 27 апр 2022, 16:27 ]
Заголовок сообщения:  Re: Запуск макроса при смене страницы

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

Автор:  gtfox [ 27 апр 2022, 22:11 ]
Заголовок сообщения:  Re: Запуск макроса при смене страницы

Щущуть подправил :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
Содержимое спрятано под спойлер ↓
Спойлер:
Изображение

Автор:  visiogetbb [ 28 апр 2022, 13:19 ]
Заголовок сообщения:  Re: Запуск макроса при смене страницы

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

Страница 1 из 1 Часовой пояс: UTC + 3 часа [ Летнее время ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/