Clase Presentation (PowerPoint VBA)

La clase Presentation representa una presentación de Microsoft PowerPoint.

Los principales procedimientos de la clase Presentation son Close y Presentations.Add

Set

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

Dim prs as Presentation
Set prs = ActivePresentation

Los siguientes procedimientos se pueden usar para establecer variables de clase Presentation : Application.ActivePresentation, DocumentWindow.Presentation, Presentations.Item, Presentations.Add, Presentations.Open, Presentations.Open2007, ProtectedViewWindow.Presentation, ProtectedViewWindow.Edit, SlideShowWindow.Presentation y Application.Presentations

Temas

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

Add with its procedures AddTitleMaster, AddToFavorites y Presentations.Add
Format with its procedures ApplyTheme, ColorSchemes, EnvelopeVisible, ExtraColors, Fonts, LayoutDirection, RemoveDocumentInformation y RemovePersonalInformation
Save with its procedures AutoSaveOn, CanCheckIn, CheckIn, CheckInWithVersion, Save, SaveAs, SaveCopyAs, SaveCopyAs2 y Saved
Data with its procedures ChartDataPointTrack y CustomerData
Create with its procedures CreateVideo y CreateVideoStatus
Display/Show with its procedures DisplayComments, SlideShowSettings y SlideShowWindow
Import/Export with its procedures Export, ExportAsFixedFormat y ExportAsFixedFormat2
Name with its procedures FullName, Name y TemplateName
Password/Protect with its procedures Password, PasswordEncryptionAlgorithm, PasswordEncryptionFileProperties, PasswordEncryptionKeyLength, PasswordEncryptionProvider, SetPasswordEncryptionOptions y WritePassword
Print with its procedures PrintOptions y PrintOut
Open with its procedures Presentations.CanCheckOut, Presentations.CheckOut, Presentations.Open y Presentations.Open2007

Métodos

Los principales métodos de la clase Presentation son

Close - Cierra la presentación especificada.

ActivePresentation.Close

Otros Métodos

ApplyTemplate2 - Aplica una plantilla de diseño y una variante de tema a la presentación.

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

FollowHyperlink - Muestra un documento almacenado en memoria caché, si ya se ha descargado. De lo contrario, este método resuelve el hipervínculo, descarga el documento de destino y lo muestra en la aplicación apropiada.

Dim strAddress As String: strAddress = 
ActivePresentation.FollowHyperlink Address:=strAddress

MergeWithBaseline - Combina una presentación con otra presentación.

Dim strwithPresentation As String: strwithPresentation = 
Dim strbaselinePresentation As String: strbaselinePresentation = 
ActivePresentation.MergeWithBaseline withPresentation:=strwithPresentation, baselinePresentation:=strbaselinePresentation

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

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

SendFaxOverInternet - Envía una presentación como fax a los destinatarios especificados.

ActivePresentation.SendFaxOverInternet

Propiedades

Broadcast Devuelve el objeto de difusión del objeto de presentación actual. Solo lectura.

Dim brdBroadcast As Broadcast
Set brdBroadcast = ActivePresentation.Broadcast

BuiltInDocumentProperties Devuelve una colección DocumentProperties que representa todas las propiedades integradas del documento para la presentación especificada. Solo lectura.

Dim dpsBuiltInDocumentProperties As DocumentProperties
dpsBuiltInDocumentProperties = ActivePresentation.BuiltInDocumentProperties

Coauthoring Devuelve un objeto Coauthoring en el objeto de presentación actual. Solo lectura.

Dim cthCoauthoring As Coauthoring
Set cthCoauthoring = ActivePresentation.Coauthoring

CommandBars Devuelve una colección CommandBars que representa la barra de comandos fusionada desde la aplicación contenedora host y Microsoft PowerPoint. Esta propiedad devuelve un objeto válido sólo cuando el contenedor es un servidor DocObject, como Microsoft Binder, y PowerPoint actúa como un servidor OLE. Solo lectura.

Dim cbsCommandBars As Office.CommandBars
Set cbsCommandBars = ActivePresentation.CommandBars

Container Devuelve el objeto que contiene la presentación incrustada especificada. Solo lectura.

Dim objContainer As Object
Set objContainer = ActivePresentation.Container

ContentTypeProperties Devuelve la colección MetaProperties de Microsoft Office que describe los metadatos almacenados en la presentación. Solo lectura.

Dim mpsContentTypeProperties As Office.MetaProperties
Set mpsContentTypeProperties = ActivePresentation.ContentTypeProperties

CustomDocumentProperties Devuelve una colección DocumentProperties que representa todas las propiedades de documento personalizadas para la presentación especificada. Es de sólo lectura.

Dim dpsCustomDocumentProperties As DocumentProperties
dpsCustomDocumentProperties = ActivePresentation.CustomDocumentProperties

CustomXMLParts Devuelve un objeto CustomXMLParts que representa la colección de elementos XML personalizados asociados con el objeto de la presentación especificado. Solo lectura.

Dim cxmsCustomXMLParts As Office.CustomXMLParts
Set cxmsCustomXMLParts = ActivePresentation.CustomXMLParts

DefaultLanguageID Devuelve o establece el idioma predeterminado de una presentación. Lectura y escritura.

ActivePresentation.DefaultLanguageID = msoLanguageIDMixed

DefaultShape Devuelve un objeto Shape que representa la forma predeterminada de la presentación. Solo lectura.

Dim shpDefaultShape As Shape
Set shpDefaultShape = ActivePresentation.DefaultShape

Designs Devuelve un objeto Designs que representa una colección de diseños.

Dim dsgsDesigns As Designs
Set dsgsDesigns = ActivePresentation.Designs

DocumentInspectors Devuelve la colección DocumentInspectors de Microsoft Office. Solo lectura.

Dim disDocumentInspectors As Office.DocumentInspectors
Set disDocumentInspectors = ActivePresentation.DocumentInspectors

DocumentLibraryVersions Devuelve una colección DocumentLibraryVersions que representa la colección de versiones de una presentación compartida que tiene habilitado el control de versiones y está almacenado en una biblioteca de documentos en un servidor.

Dim dlvsDocumentLibraryVersions As Office.DocumentLibraryVersions
Set dlvsDocumentLibraryVersions = ActivePresentation.DocumentLibraryVersions

EncryptionProvider Devuelve una cadena que especifica el nombre del proveedor del algoritmo de cifrado que PowerPoint utiliza para cifrar los documentos. Lectura y escritura.

ActivePresentation.EncryptionProvider =

FarEastLineBreakLanguage Devuelve o establece el idioma usado para determinar qué nivel de salto de línea se usa cuando la opción de control de salto de línea está activada. Lectura y escritura.

ActivePresentation.FarEastLineBreakLanguage = MsoFarEastLineBreakLanguageJapanese

FarEastLineBreakLevel Devuelve o establece el salto de línea en función del nivel de los caracteres asiáticos. Lectura y escritura.

ActivePresentation.FarEastLineBreakLevel = ppFarEastLineBreakLevelCustom

Final Determina si la presentación está marcada como final (solo lectura). Lectura y escritura.

ActivePresentation.Final = True

GridDistance Establece o devuelve un valor Single que representa la distancia entre las líneas de cuadrícula. Lectura y escritura.

ActivePresentation.GridDistance = 18

Guides Devuelve la colección de guías asociada a un diseño personalizado. Solo lectura.

Dim gdsGuides As Guides
Set gdsGuides = ActivePresentation.Guides

HandoutMaster Devuelve un objeto Master que representa el patrón de documentos. Solo lectura.

Dim mstHandoutMaster As Master
Set mstHandoutMaster = ActivePresentation.HandoutMaster

HasHandoutMaster Indica si la presentación contiene elementos multimedia en un patrón de documentos. De solo lectura.

Dim booHasHandoutMaster As Boolean
booHasHandoutMaster = ActivePresentation.HasHandoutMaster

HasNotesMaster Indica si la presentación contiene elementos multimedia en un patrón de notas. Solo lectura.

Dim booHasNotesMaster As Boolean
booHasNotesMaster = ActivePresentation.HasNotesMaster

HasTitleMaster MsoTrue si la presentación especificada tiene un patrón de títulos. Solo lectura.

Dim mtsHasTitleMaster As Office.MsoTriState
mtsHasTitleMaster = ActivePresentation.HasTitleMaster

HasVBProject Indica si la presentación activa contiene un proyecto de Microsoft Visual Basic para Aplicaciones (VBA). Solo lectura.

Dim booHasVBProject As Boolean
booHasVBProject = ActivePresentation.HasVBProject

InMergeMode Indica si la ventana del documento está en modo de combinación. De solo lectura.

Dim booInMergeMode As Boolean
booInMergeMode = ActivePresentation.InMergeMode

NoLineBreakAfter Devuelve o establece los caracteres que no pueden terminar una línea. Lectura y escritura.

ActivePresentation.NoLineBreakAfter =

NoLineBreakBefore Devuelve o establece los caracteres que no pueden iniciar una línea. Lectura y escritura.

ActivePresentation.NoLineBreakBefore =

NotesMaster Devuelve un objeto Master que representa el patrón de notas. Solo lectura.

Dim mstNotesMaster As Master
Set mstNotesMaster = ActivePresentation.NotesMaster

PageSetup Devuelve un objeto PageSetup cuyas propiedades controlan los atributos de configuración de las diapositivas de la presentación especificada. Solo lectura.

Dim pspPageSetup As PageSetup
Set pspPageSetup = ActivePresentation.PageSetup

Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActivePresentation.Parent

Path Devuelve una cadena que representa la ruta de acceso para el objeto de la presentación especificado. Solo lectura.

Dim strPath As String
strPath = ActivePresentation.Path

Permission expresión.

Dim prmPermission As Office.Permission
Set prmPermission = ActivePresentation.Permission

ReadOnly Determina si la presentación especificada es de solo lectura. Solo lectura.

Dim mtsReadOnly As Office.MsoTriState
mtsReadOnly = ActivePresentation.ReadOnly

ReadOnlyRecommended True   Si la presentación se guardó como recomendado sólo lectura. Boolean de solo lectura .

Dim booReadOnlyRecommended As Boolean
booReadOnlyRecommended = ActivePresentation.ReadOnlyRecommended

Research Devuelve un objeto Research que proporciona acceso a la característica del servicio de referencia de Microsoft PowerPoint. Solo lectura.

Dim rsrResearch As Research
Set rsrResearch = ActivePresentation.Research

SectionProperties Devuelve un objeto SectionProperties. Solo lectura.

Dim spsSectionProperties As SectionProperties
Set spsSectionProperties = ActivePresentation.SectionProperties

SensitivityLabel

Dim islSensitivityLabel As Office.ISensitivityLabel
islSensitivityLabel = ActivePresentation.SensitivityLabel

ServerPolicy Devuelve un objeto ServerPolicy de Microsoft Office. Solo lectura.

Dim spyServerPolicy As Office.ServerPolicy
Set spyServerPolicy = ActivePresentation.ServerPolicy

SharedWorkspace Se ha degradado a este objeto o miembro, pero sigue siendo parte del modelo de objetos para la compatibilidad con versiones anteriores. No debe usarse en nuevas aplicaciones.

Dim sweSharedWorkspace As Office.SharedWorkspace
Set sweSharedWorkspace = ActivePresentation.SharedWorkspace

Signatures Devuelve un objeto SignatureSet que representa una colección de firmas digitales. Solo lectura.

Dim sstSignatures As Office.SignatureSet
Set sstSignatures = ActivePresentation.Signatures

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

Dim mstSlideMaster As Master
Set mstSlideMaster = ActivePresentation.SlideMaster

Slides Devuelve una colección Slides que representa todas las diapositivas de la presentación especificada. Solo lectura.

Dim sldsSlides As Slides
Set sldsSlides = ActivePresentation.Slides

SnapToGrid Determina si se ajustan las formas a las líneas de cuadrícula de la presentación especificada. Lectura y escritura.

ActivePresentation.SnapToGrid = msoTrue

Sync Se ha degradado a este objeto o miembro, pero sigue siendo parte del modelo de objetos para la compatibilidad con versiones anteriores. No debe usarse en nuevas aplicaciones.

Dim synSync As Office.Sync
Set synSync = ActivePresentation.Sync

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

Dim tgsTags As Tags
Set tgsTags = ActivePresentation.Tags

TitleMaster Devuelve un objeto Master que representa al patrón de títulos para la presentación especificada.

Dim mstTitleMaster As Master
Set mstTitleMaster = ActivePresentation.TitleMaster

VBASigned Determina si el proyecto de Visual Basic para Aplicaciones (VBA) del documento especificado se firmó digitalmente. Solo lectura.

Dim mtsVBASigned As Office.MsoTriState
mtsVBASigned = ActivePresentation.VBASigned

VBProject Devuelve un objeto VBProject que representa el proyecto individual de Visual Basic para la presentación. Solo lectura.

Dim vbpVBProject As VBIDE.VBProject
Set vbpVBProject = ActivePresentation.VBProject

Windows Devuelve una colección DocumentWindows que representa todas las ventanas del documento asociadas con la presentación especificada. Solo lectura.

Dim dwsWindows As DocumentWindows
Set dwsWindows = ActivePresentation.Windows

WorkIdentity

ActivePresentation.WorkIdentity =

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

Dim lngCount As Long
lngCount = Presentations.Count

Presentations.Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = Presentations.Parent