Код VBA не работает в режиме слайд-шоу

Question

У меня есть этот кусок кода, он увеличивает значение текстового поля на текущем слайде.Работает нормально в обычном режиме, но по какой-то причине в режиме слайд-шоу не работает вообще, что с ним не так?

Sub Label1Plus1()
Dim sld As Long

sld = ActiveWindow.Selection.SlideRange.SlideIndex
ActivePresentation.Slides(sld).Shapes("textbox1").TextFrame.TextRange.Text = ActivePresentation.Slides(sld).Shapes("textbox1").TextFrame.TextRange.Text + 1

End Sub

Answer 1

PPT не будет отображать никаких сообщений об ошибках в коде VBA, когда вы находитесь в режиме просмотра слайдов.Вот почему вы не видите никаких ошибок, но если это произошло, вы увидите ошибку, когда она достигнет:

sld = ActiveWindow.Selection.SlideRange.SlideIndex

Вы не можете ничего выбрать в представлении Слайд-шоу, поэтому не может быть.Selection object.

Вместо этого используйте это:

Dim Sld as Slide
Set Sld = SlideShowWindows(1).View.Slide.Shapes("mytextbox")

Или, если вы предпочитаете использовать Sld в качестве переменной Long

Sld = SlideShowWindows(1).View.Slide.SlideIndex