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

Статья
04/07/2023

Происходит при щелчке мыши или анимации времени, но до того, как анимированный объект станет видимым. .

Синтаксис

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

выражение: переменная, представляющая объект Application.

Параметры

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

Замечания

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

Пример

Если текущей фигурой на слайде один является фильм, в этом примере фильм воспроизводится непрерывно, пока ведущий не остановит его вручную. Этот код предназначен для использования со вторым примером события SlideShowNextSlide .

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

См. также

Объект Application

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

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

Поделиться через