Событие Application. Слидешовнекстслиде (PowerPoint)Application.SlideShowNextSlide event (PowerPoint)

Происходит непосредственно перед переходом к следующему слайду.Occurs immediately before the transition to the next slide. Для первого слайда происходит сразу же после события слидешовбегин .For the first slide, occurs immediately after the SlideShowBegin event.

СинтаксисSyntax

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

Expression (выражение ) Выражение, возвращающее объект Application .expression An expression that returns a Application object.

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
ВНWn ОбязательныйRequired SlideShowWindowSlideShowWindow Активное окно слайда показ слайдов.The active slide show window.

ПримечанияRemarks

Сведения об использовании событий с объектом Application можно узнать в статье как: использование событий с объектом Application.For information about using events with the Application object, see How to: Use Events with the Application Object.

ПримерExample

В этом примере показано, как определить положение слайда для слайда, следующего за событием слидешовнекстслиде .This example determines the slide position for the slide following the SlideShowNextSlide event. Если следующий слайд является трем слайдом, в примере изменяется тип указателя на перо и цвет пера на красный.If the next slide is slide three, the example changes the type of pointer to a pen and the pen color to red.

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

В этом примере для глобальной переменной счетчика задается нулевое значение.This example sets a global counter variable to zero. Затем он вычисляет количество фигур на слайде, следующем за этим событием, определяет, какие фигуры имеют анимацию, и заполняет глобальный массив заказом анимации и числом каждой фигуры.Then it calculates the number of shapes on the slide following this event, determines which shapes have animation, and fills a global array with the animation order and the number of each shape.

Note (Примечание ) Массив, созданный в этом примере, также используется в примере события слидешовнекстбуилд .Note The array created in this example is also used in the SlideShowNextBuild event example.

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

См. такжеSee also

Объект ApplicationApplication Object

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.