Объект "Слайды" (PowerPoint)

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

Примечания

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

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

В следующих примерах описано, как выполнить следующие действия:

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

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

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

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

Пример

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

ActivePresentation.Slides.Add 2, ppLayoutBlank

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

ActivePresentation.Slides(1).Layout = ppLayoutTitle

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

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

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

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 и обратная связь.