Запуск макроса при смене страницы

visiogetbb

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

Surrogate

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

Щущуть подправил :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

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

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

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

Запуск макроса при смене страницы

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