Объект Slides (PowerPoint)

Коллекция всех объектов Slide в указанной презентации.

Примечания

Если решение Visual Studio содержит ссылку microsoft.Office.Interop.PowerPoint , эта коллекция сопоставляется со следующими типами:

• Microsoft.Office.Interop.PowerPoint.Slides.GetEnumerator (для перечисления объектов Slide ).)

В следующих примерах описано, как:

• Создание слайда и его добавление в коллекцию

• Возврат одного слайда, указанного по имени, номеру индекса или номеру идентификатора слайда

• Возврат подмножества слайдов в презентации

• Одновременное применение свойства или метода ко всем слайдам в презентации

Пример

Используйте свойство Slides , чтобы вернуть коллекцию Slides . Используйте метод Add , чтобы создать слайд и добавить его в коллекцию. В следующем примере к активной презентации добавляется новый слайд.

ActivePresentation.Slides.Add 2, ppLayoutBlank

Используйте слайды (индекс), где index — это имя или номер индекса слайда, или используйте Slides.FindBySlideID (index), где index — номер идентификатора слайда, чтобы вернуть один объект Slide . В следующем примере задается макет для слайда в активной презентации.

ActivePresentation.Slides(1).Layout = ppLayoutTitle

В следующем примере задается макет для слайда с именем "Большая диаграмма" в активной презентации. Обратите внимание, что слайдам присваиваются автоматически созданные имена формы Sliden (где n — целое число) при их создании. Чтобы присвоить слайду более понятное имя, используйте свойство Name .

ActivePresentation.Slides("Big Chart").Layout = ppLayoutTitle

Используйте Slides.Range (index), где index — это номер или имя индекса слайда или массив номеров индексов слайдов или массив имен слайдов, чтобы вернуть объект SlideRange , представляющий подмножество коллекции Slides . В следующем примере задается фоновая заливка для слайдов на один и три в активной презентации.

With ActivePresentation.Slides.Range(Array(1, 3)) 
    .FollowMasterBackground = False 
    .Background.Fill.PresetGradient msoGradientHorizontal, _ 
        1, msoGradientLateSunset 
End With

Если вы хотите сделать что-то со всеми слайдами в презентации одновременно (например, удалить все слайды или задать для них свойство), используйте Slides.Range без аргументов, чтобы создать коллекцию SlideRange , содержащую все слайды в коллекции Slides , а затем применить соответствующее свойство или метод к коллекции SlideRange . В следующем примере настраивается заливка фона для всех слайдов в активной презентации.

With ActivePresentation.Slides.Range 
    .FollowMasterBackground = False 
    .Background.Fill.PresetGradient msoGradientHorizontal, _ 
        1, msoGradientLateSunset 
End With

См. также

Справочник по объектной модели PowerPoint

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

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