Microsoft PowerPoint запускает событие OnSlideShowPageChange()
для каждого слайда, который отображается во время показа слайдов. Вы можете использовать это средство для вызова любого макроса, когда отображаются определенные слайды. PowerPoint передает ссылку на SlideShowWindow в качестве параметра события OnSlideShowPageChange()
.
Я предполагаю, что у вас есть гиперссылка на слайде 2. Итак, скопируйте следующий код в модуле VBA:
' --- The following macro displays a message when the second slide is shown.
' --- You are asked to open or not to open the link.
' --- The first link on slide 2 is opened when you click the OK button.
Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
If SSW.View.CurrentShowPosition = 2 Then
MsgBox "Second slide in the slide show"
result = MsgBox("Open URL?", vbOKCancel)
If result = vbOK Then
ActivePresentation.Slides(2).Hyperlinks(1).Follow
End If
End If
End Sub
Конечно, вы можете удалить ненужные строки кода, чтобы перешагнуть через сообщение и вопрос.