Clase Slide (PowerPoint VBA)

La clase Slide representa una diapositiva. La colección slides contiene todos los objetos Slide de una presentación.

Los principales procedimientos de la clase Slide son Copy, Delete, Select, SlideRange.Copy, SlideRange.Delete y SlideRange.Select

Set

Para usar una variable de clase Slide, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase 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 y Presentation.Slides

Temas

Algunos procedimientos de esta clase se han agrupado en temas y se describen en páginas temáticas separadas

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

Métodos

Los principales métodos de la clase Slide son

Delete - Elimina el objeto Slide especificado.

ActivePresentation.Slides.Range(1).Delete

Select - Selecciona el objeto especificado.

ActivePresentation.Slides.Range(1).Select

SlideRange.Delete - Elimina el objeto SlideRange especificado.

ActivePresentation.Slides.Range.Delete

SlideRange.Select - Selecciona el objeto especificado.

ActivePresentation.Slides.Range.Select

Otros Métodos

ApplyTemplate2 - Aplica una plantilla de diseño y una variante de tema a la diapositiva.

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

PublishSlides - Publica la diapositiva especificada en la ubicación especificada.

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

SlideRange.ApplyTemplate2 - Aplica una plantilla de diseño y una variante de tema al intervalo de diapositivas.

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

SlideRange.PublishSlides - Crea una presentación web (en formato HTML) a partir de cualquier presentación cargada. Puede ver la presentación publicada en un explorador Web.

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

Slides.AddSlide - Crea una nueva diapositiva, la agrega a la colección slides y devuelve la diapositiva.

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

Slides.InsertFromFile - Inserta diapositivas de un archivo en una presentación, en la ubicación especificada. Devuelve un entero que representa el número de diapositivas insertadas.

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)

Propiedades

Background Devuelve un objeto ShapeRange que representa el fondo de diapositiva.

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

Comments Devuelve un objeto Comments que representa una colección de comentarios. Solo lectura.

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

Design Devuelve un objeto Design que representa un diseño.

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

FollowMasterBackground Determina si la diapositiva sigue el fondo del patrón de diapositivas. Lectura y escritura.

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

HasNotesPage Indica si la diapositiva seleccionada tiene medios que residen en una página de notas. Solo lectura.

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

HeadersFooters Devuelve una colección HeadersFooters que representa el encabezado, pie de página, fecha y hora y número de diapositiva asociados con la diapositiva, patrón de diapositivas o intervalo de diapositivas. Solo lectura.

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

Hyperlinks Devuelve una colección Hyperlinks que representa todos los hipervínculos de la diapositiva especificada. Solo lectura.

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

Master Devuelve un objeto Master que representa al patrón de diapositivas. Solo lectura.

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

NotesPage Devuelve un objeto SlideRange que representa las páginas de notas de la diapositiva o intervalo de diapositivas especificados. Solo lectura.

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

Parent Devuelve el objeto primario del objeto especificado.

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

sectionIndex Devuelve el índice de la sección seleccionada en el intervalo de diapositivas. Solo lectura.

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

Shapes Devuelve una colección Shapes que representa todos los elementos que se han colocado o insertados en la diapositiva especificada, patrón de diapositivas o intervalo de diapositivas. Solo lectura.

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

SlideID Devuelve un número de identificación único para la diapositiva especificada. Solo lectura.

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

SlideIndex Devuelve el número de índice de la diapositiva especificada dentro de la colección Slides. Solo lectura.

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

Tags Devuelve un objeto Tags que representa las etiquetas para el objeto especificado. Solo lectura.

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

TimeLine Devuelve un objeto TimeLine que representa la escala de tiempo de animación de la diapositiva. Solo lectura.

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

SlideRange.Background Devuelve un objeto ShapeRange que representa el fondo de diapositiva.

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

SlideRange.Comments Devuelve un objeto Comments que representa una colección de comentarios. Solo lectura.

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

SlideRange.Count Devuelve el número de objetos de la colección especificada. Solo lectura.

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

SlideRange.Design Devuelve un objeto Design que representa un diseño.

Set ActivePresentation.Slides.Range.Design =

SlideRange.FollowMasterBackground Determina si el intervalo de diapositivas sigue el fondo del patrón de diapositivas. Lectura y escritura.

ActivePresentation.Slides.Range.FollowMasterBackground = msoTrue

SlideRange.HasNotesPage Indica si el SlideRange seleccionado tiene un elemento multimedia que se encuentra en una página de notas. Solo lectura.

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

SlideRange.HeadersFooters Devuelve una colección HeadersFooters que representa el encabezado, pie de página, fecha y hora y número de diapositiva asociados con la diapositiva, patrón de diapositivas o intervalo de diapositivas. Solo lectura.

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

SlideRange.Hyperlinks Devuelve una colección Hyperlinks que representa todos los hipervínculos de la diapositiva especificada. Solo lectura.

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

SlideRange.Master Devuelve un objeto Master que representa al patrón de diapositivas. Solo lectura.

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

SlideRange.NotesPage Devuelve un objeto SlideRange que representa las páginas de notas de la diapositiva o intervalo de diapositivas especificados. Solo lectura.

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

SlideRange.Parent Devuelve el objeto primario del objeto especificado.

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

SlideRange.sectionIndex Devuelve el índice de la sección seleccionada en el SlideRange. Solo lectura.

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

SlideRange.Shapes Devuelve una colección Shapes que representa todos los elementos que se han colocado o insertados en la diapositiva especificada, patrón de diapositivas o intervalo de diapositivas. Solo lectura.

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

SlideRange.SlideID Devuelve un número de identificación único para la diapositiva especificada. Solo lectura.

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

SlideRange.SlideIndex Devuelve el número de índice de la diapositiva especificada dentro de la colección Slides. Solo lectura.

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

SlideRange.Tags Devuelve un objeto Tags que representa las etiquetas para el objeto especificado. Solo lectura.

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

SlideRange.TimeLine Devuelve un objeto TimeLine que representa la escala de tiempo de animación de la diapositiva. Solo lectura.

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

Slides.Count Devuelve el número de objetos de la colección especificada. Solo lectura.

Dim lngCount As Long
lngCount = ActivePresentation.Slides.Count

Slides.Parent Devuelve el objeto primario del objeto especificado.

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