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

Возникает после завершения показа слайдов сразу же после последнего события слидешовнекстслиде .Occurs after a slide show ends, immediately after the last SlideShowNextSlide event occurs.

СинтаксисSyntax

выражение.expression. SlideShowEnd( _Pres_ )

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

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
ПресPres ОбязательныйRequired PresentationPresentation Презентация закрывается при возникновении этого события.The presentation closed when this event occurs.

ПримечанияRemarks

Событие слидешовенд всегда происходит до окончания показа слайдов при возникновении события слидешовбегин .The SlideShowEnd event always occurs before a slide show ends if the SlideShowBegin event has occurred. С помощью события слидешовенд можно возвратить все параметры свойств и инициализации переменных, происходящие в событии слидешовбегин , к исходным параметрам.You can use the SlideShowEnd event to return any property settings and variable initializations that occur in the SlideShowBegin event to their original settings.

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

ПримерExample

В этом примере отключается эффект ввода и автоматический показ слайдов слайдов со временем для слайдов с 1 по четыре в конце показа слайдов.This example turns off the entry effect and automatic advance timing slide show transition effects for slides one through four at the end of the slide show. Кроме того, на слайдах задаются ручные переходы.It also sets the slides to advance manually.

Private Sub App_SlideShowEnd(ByVal Pres As Presentation)

    With Pres.Slides.Range(Array(1, 4)) _
            .SlideShowTransition

        .EntryEffect = ppEffectNone

        .AdvanceOnTime = msoFalse

    End With



    With Pres.SlideShowSettings

        .AdvanceMode = ppSlideShowManualAdvance

    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.