Classe Slide (PowerPoint VBA)

A classe Slide representa um slide. Coleção Slides contém todos os objetos Slide em uma apresentação.

Os principais procedimentos da classe Slide são Copy, Delete, Select, SlideRange.Copy, SlideRange.Delete e SlideRange.Select

Set

Para usar uma variável de classe Slide, ela primeiro precisa ser instanciada por exemplo

Dim sld as Slide
Set sld = ActivePresentation.Slides.Range(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Slide: SlideRange.Item, Slides.Item, Slides.AddSlide, Slides.FindBySlideID, SlideShowView.LastSlideViewed, SlideShowView.Slide, View.Slide, Selection.SlideRange, Duplicate, NotesPage, SlideRange.Duplicate, SlideRange.NotesPage, Slides.Range, Slides.Paste e Presentation.Slides

Temas

Alguns procedimentos nesta classe foram agrupados em temas e são descritos em páginas de tema separadas

Format with its procedures ApplyTheme, ApplyThemeColorScheme, BackgroundStyle, ColorScheme, CustomLayout, Layout, ThemeColorScheme, SlideRange.ApplyTheme, SlideRange.ApplyThemeColorScheme, SlideRange.BackgroundStyle, SlideRange.ColorScheme, SlideRange.CustomLayout, SlideRange.Layout e SlideRange.ThemeColorScheme
Copy with its procedures Copy e SlideRange.Copy
Data with its procedures CustomerData e SlideRange.CustomerData
Display/Show with its procedures DisplayMasterShapes, SlideShowTransition, SlideRange.DisplayMasterShapes e SlideRange.SlideShowTransition
Import/Export with its procedures Export e SlideRange.Export
Name with its procedures Name e SlideRange.Name
Print with its procedures PrintSteps e SlideRange.PrintSteps
Number with its procedures SlideNumber e SlideRange.SlideNumber

Métodos

Estes são os principais métodos da classe Slide

Delete - Exclui o objeto Slide especificado.

ActivePresentation.Slides.Range(1).Delete

Select - Seleciona o objeto especificado.

ActivePresentation.Slides.Range(1).Select

SlideRange.Delete - Exclui o objeto SlideRange especificado.

ActivePresentation.Slides.Range.Delete

SlideRange.Select - Seleciona o objeto especificado.

ActivePresentation.Slides.Range.Select

Estes são os principais métodos da classe

ApplyTemplate2 - Aplica um modelo de design e uma e de tema ao slide.

Dim strFileName As String: strFileName = 
Dim strVariantGUID As String: strVariantGUID = 
ActivePresentation.Slides.Range(1).ApplyTemplate2 FileName:=strFileName, VariantGUID:=strVariantGUID

PublishSlides - Publica o slide especificado no local especificado.

Dim strSlideLibraryUrl As String: strSlideLibraryUrl = "https://myURL " 
ActivePresentation.Slides.Range(1).PublishSlides SlideLibraryUrl:=strSlideLibraryUrl

SlideRange.ApplyTemplate2 - Aplica um modelo de design e uma e de tema ao intervalo de slides.

Dim strFileName As String: strFileName = 
Dim strVariantGUID As String: strVariantGUID = 
ActivePresentation.Slides.Range.ApplyTemplate2 FileName:=strFileName, VariantGUID:=strVariantGUID

SlideRange.PublishSlides - Cria uma apresentação da Web no formato HTML a partir de qualquer apresentação carregada. Você pode exibir a apresentação publicada em um navegador da Web.

Dim strSlideLibraryUrl As String: strSlideLibraryUrl = 
ActivePresentation.Slides.Range.PublishSlides SlideLibraryUrl:=strSlideLibraryUrl

Slides.AddSlide - Cria um novo slide, adiciona-o à coleção Slides e retorna o slide.

Dim lngIndex As Long: lngIndex = 
Dim sldAddSlide As Slide
Set sldAddSlide = ActivePresentation.Slides.AddSlide(Index:=lngIndex, pCustomLayout:=)

Slides.InsertFromFile - Insere os slides de um arquivo em uma apresentação, no local especificado. Retorna um inteiro que representa o número de slides inseridos.

Dim strFileName As String: strFileName = "c:\ppt\sales.ppt" 
Dim lngIndex As Long: lngIndex = 2 
Dim lngInsertFromFile As Long
lngInsertFromFile = ActivePresentation.Slides.InsertFromFile(FileName:=strFileName, Index:=lngIndex)

Propriedades

Background Retorna um objeto ShapeRange que representa o plano de fundo do slide.

Dim sreBackground As ShapeRange
Set sreBackground = ActivePresentation.Slides.Range(1).Background

Comments Retorna um objeto de comentários que representa uma coleção de comentários. Somente leitura.

Dim cmmsComments As Comments
Set cmmsComments = ActivePresentation.Slides.Range(1).Comments

Design Retorna um objeto Design representando um design.

Set ActivePresentation.Slides.Range(1).Design =

FollowMasterBackground Determina se o slide segue o plano de fundo do slide mestre. Leitura/gravação.

ActivePresentation.Slides.Range(1).FollowMasterBackground = msoTrue

HasNotesPage Indica se o Slide selecionado tem mídia que reside em uma página de anotações. Somente leitura.

Dim mtsHasNotesPage As Office.MsoTriState
mtsHasNotesPage = ActivePresentation.Slides.Range(1).HasNotesPage

HeadersFooters Retorna uma coleção HeadersFooters que representa o cabeçalho, rodapé, data e hora e o número do slide associados com o slide, slide mestre ou intervalo de slides. Somente leitura.

Dim hfsHeadersFooters As HeadersFooters
Set hfsHeadersFooters = ActivePresentation.Slides.Range(1).HeadersFooters

Hyperlinks Retorna uma coleção Hyperlinks que representa todos os hiperlinks no slide especificado. Somente leitura.

Dim hypsHyperlinks As Hyperlinks
Set hypsHyperlinks = ActivePresentation.Slides.Range(1).Hyperlinks

Master Retorna um objeto Master que representa o slide mestre. Somente leitura.

Dim mstMaster As Master
Set mstMaster = ActivePresentation.Slides.Range(1).Master

NotesPage Retorna um objeto SlideRange que representa as páginas de anotações para o slide ou intervalo de slides especificado. Somente leitura.

Dim sreNotesPage As SlideRange
Set sreNotesPage = ActivePresentation.Slides.Range(1).NotesPage

Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActivePresentation.Slides.Range(1).Parent

sectionIndex Retorna o índice da seção selecionada no intervalo de slides . Somente leitura.

Dim lngsectionIndex As Long
lngsectionIndex = ActivePresentation.Slides.Range(1).sectionIndex

Shapes Retorna uma coleção de formas que representa todos os elementos que tenham sido colocados ou inseridos no slide especificado, slide mestre ou intervalo de slides. Somente leitura.

Dim shpsShapes As Shapes
Set shpsShapes = ActivePresentation.Slides.Range(1).Shapes

SlideID Retorna um número ID exclusivo para o slide especificado. Somente leitura.

Dim lngSlideID As Long
lngSlideID = ActivePresentation.Slides.Range(1).SlideID

SlideIndex Retorna o número de índice do slide especificado dentro da coleção slides . Somente leitura.

Dim lngSlideIndex As Long
lngSlideIndex = ActivePresentation.Slides.Range(1).SlideIndex

Tags Retorna um objeto Tags que representa as marcas do objeto especificado. Somente leitura.

Dim tgsTags As Tags
Set tgsTags = ActivePresentation.Slides.Range(1).Tags

TimeLine Retorna um objeto TimeLine que representa a linha do tempo da animação do slide. Somente leitura.

Dim tleTimeLine As TimeLine
Set tleTimeLine = ActivePresentation.Slides.Range(1).TimeLine

SlideRange.Background Retorna um objeto ShapeRange que representa o plano de fundo do slide.

Dim sreBackground As ShapeRange
Set sreBackground = ActivePresentation.Slides.Range.Background

SlideRange.Comments Retorna um objeto de comentários que representa uma coleção de comentários. Somente leitura.

Dim cmmsComments As Comments
Set cmmsComments = ActivePresentation.Slides.Range.Comments

SlideRange.Count Retorna o número de objetos na coleção especificada. Somente leitura.

Dim lngCount As Long
lngCount = ActivePresentation.Slides.Range.Count

SlideRange.Design Retorna um objeto Design representando um design.

Set ActivePresentation.Slides.Range.Design =

SlideRange.FollowMasterBackground Determina se o intervalo de slides acompanhará o plano de fundo do slide mestre. Leitura/gravação.

ActivePresentation.Slides.Range.FollowMasterBackground = msoTrue

SlideRange.HasNotesPage Indica se o SlideRange selecionado tem mídia que reside em uma página de anotações. Somente leitura.

Dim mtsHasNotesPage As Office.MsoTriState
mtsHasNotesPage = ActivePresentation.Slides.Range.HasNotesPage

SlideRange.HeadersFooters Retorna uma coleção HeadersFooters que representa o cabeçalho, rodapé, data e hora e o número do slide associados com o slide, slide mestre ou intervalo de slides. Somente leitura.

Dim hfsHeadersFooters As HeadersFooters
Set hfsHeadersFooters = ActivePresentation.Slides.Range.HeadersFooters

SlideRange.Hyperlinks Retorna uma coleção Hyperlinks que representa todos os hiperlinks no slide especificado. Somente leitura.

Dim hypsHyperlinks As Hyperlinks
Set hypsHyperlinks = ActivePresentation.Slides.Range.Hyperlinks

SlideRange.Master Retorna um objeto Master que representa o slide mestre. Somente leitura.

Dim mstMaster As Master
Set mstMaster = ActivePresentation.Slides.Range.Master

SlideRange.NotesPage Retorna um objeto SlideRange que representa as páginas de anotações para o slide ou intervalo de slides especificado. Somente leitura.

Dim sreNotesPage As SlideRange
Set sreNotesPage = ActivePresentation.Slides.Range.NotesPage

SlideRange.Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActivePresentation.Slides.Range.Parent

SlideRange.sectionIndex Retorna o índice da seção selecionada no SlideRange. Somente leitura.

Dim lngsectionIndex As Long
lngsectionIndex = ActivePresentation.Slides.Range.sectionIndex

SlideRange.Shapes Retorna uma coleção de formas que representa todos os elementos que tenham sido colocados ou inseridos no slide especificado, slide mestre ou intervalo de slides. Somente leitura.

Dim shpsShapes As Shapes
Set shpsShapes = ActivePresentation.Slides.Range.Shapes

SlideRange.SlideID Retorna um número ID exclusivo para o slide especificado. Somente leitura.

Dim lngSlideID As Long
lngSlideID = ActivePresentation.Slides.Range.SlideID

SlideRange.SlideIndex Retorna o número de índice do slide especificado dentro da coleção slides . Somente leitura.

Dim lngSlideIndex As Long
lngSlideIndex = ActivePresentation.Slides.Range.SlideIndex

SlideRange.Tags Retorna um objeto Tags que representa as marcas do objeto especificado. Somente leitura.

Dim tgsTags As Tags
Set tgsTags = ActivePresentation.Slides.Range.Tags

SlideRange.TimeLine Retorna um objeto TimeLine que representa a linha do tempo da animação do slide. Somente leitura.

Dim tleTimeLine As TimeLine
Set tleTimeLine = ActivePresentation.Slides.Range.TimeLine

Slides.Count Retorna o número de objetos na coleção especificada. Somente leitura.

Dim lngCount As Long
lngCount = ActivePresentation.Slides.Count

Slides.Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActivePresentation.Slides.Parent