Событие Application.SlideShowNextSlide (PowerPoint)

Статья
04/07/2023

Происходит непосредственно перед переходом на следующий слайд. Для первого слайда происходит сразу после события SlideShowBegin .

Синтаксис

выражение. SlideShowNextSlide(Wn)

Выражение Выражение, возвращающее объект Application .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Wn	Обязательный	SlideShowWindow	Активное окно слайд-шоу.

Замечания

Сведения об использовании событий с объектом Application см. в разделе Практическое руководство. Использование событий с объектом приложения.

Пример

В этом примере определяется положение слайда после события SlideShowNextSlide . Если следующий слайд — три слайда, в примере изменяется тип указателя на перо, а цвет пера — на красный.

Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)



   Dim Showpos As Integer



   Showpos = Wn.View.CurrentShowPosition + 1

If Showpos = 3 Then  

         With ActivePresentation.SlideShowSettings.Run.View

            .PointerColor.RGB = RGB(255, 0, 0)

            .PointerType = ppSlideShowPointerPen

         End With

      Else

         With ActivePresentation.SlideShowSettings.Run.View

            .PointerColor.RGB = RGB(0, 0, 0)

            .PointerType = ppSlideShowPointerArrow

         End With

      End If

End Sub

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

Примечание.

Массив, созданный в этом примере, также используется в примере события SlideShowNextBuild .

Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)



   Dim i as Integer, j as Integer, numShapes As Integer

   Dim objSld As Slide



   Set objSld = ActivePresentation.Slides _
        (ActivePresentation.SlideShowWindow.View _
        .CurrentShowPosition + 1)

      With objSld.Shapes

         numShapes = .Count

         If numShapes > 0 Then

            j = 1

            ReDim shpAnimArray(1 To 2, 1 To numShapes)

            For i = 1 To numShapes

               If .Item(i).AnimationSettings.Animate Then

                  shpAnimArray(1, j) = _
                     .Item(i).AnimationSettings.AnimationOrder

                     shpAnimArray(2, j) = i

                     j = j + 1

               End If

            Next

         End If

      End With

End Sub

См. также

Объект Application

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Share via