PowerPoint VBA - запуск макроса при смене слайдов в режиме редактирования

Question

Я знаю, что мог бы сделать следующее, чтобы запустить код, когда слайд изменяется в режиме презентации.

Sub OnSlideShowPageChange()
Dim i As Integer
i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
If i <> 1 Then Exit Sub
'Code that should happen when slide changes goes here
End Sub

Я хочу знать, возможно ли это сделать, когда слайд изменен вне слайд-шоу, т.е. презентация находится в режиме редактирования, поэтому, если я нажму на другой слайд, он запустит код. Это возможно?

Заранее спасибо!

Answer 1

Возможно, вы могли бы сделать что-то вроде:

1) Перехватить событие SelectionChange

2) Когда событие запускается, убедитесь, что текущий слайд не совпадает с тем, который был в последний раз, когда вы захватывали событие SelectionChange (потому что событие возникает, когда вы выбираете разные фигуры, а также разные слайды).

3) Если это другой слайд, запустите ваш код и запишите индекс текущего слайда (для проверки в следующий раз при возникновении события)

Вам нужно сделать это в надстройке.

Хотя на событие SlideSelectionChanged лучше реагировать. https://msdn.microsoft.com/en-us/library/ff745869.aspx