Объект 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 и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по