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

Возникает при нажатии кнопки мыши или анимации времени, но до того, как объект становится видимым.Occurs upon mouse-click or timing animation, but before the animated object becomes visible. .

СинтаксисSyntax

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

выражение: переменная, представляющая объект Application.expression A variable that represents an 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

Если текущая фигура на слайде один является фильмом, этот пример воспроизводит фильм до тех пор, пока он не будет остановлен вручную докладчиком.If the current shape on slide one is a movie, this example plays the movie continuously until stopped manually by the presenter. Этот код предназначен для использования с помощью второго примера события слидешовнекстслиде .This code is designed to be used with the second SlideShowNextSlide event example.

Private Sub App_SlideShowNextBuild(ByVal Wn As SlideShowWindow)

    If EvtCounter <> 0 Then

        With ActivePresentation.Slides(1) _
                .Shapes(shpAnimArray(2, EvtCounter))

            If .Type =msoMedia Then

                If .MediaType = ppMediaTypeMovie

                    .AnimationSettings.PlaySettings _
                        .LoopUntilStopped

                End If

            End If

        End With

    End If

    EvtCounter = EvtCounter + 1

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.