Classe Presentation (PowerPoint VBA)

A classe Presentation representa uma apresentação do Microsoft PowerPoint.

Os principais procedimentos da classe Presentation são Close e Presentations.Add

Set

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

Dim prs as Presentation
Set prs = ActivePresentation

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Presentation: Application.ActivePresentation, DocumentWindow.Presentation, Presentations.Item, Presentations.Add, Presentations.Open, Presentations.Open2007, ProtectedViewWindow.Presentation, ProtectedViewWindow.Edit, SlideShowWindow.Presentation e Application.Presentations

Temas

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

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

Métodos

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

Close - Fecha a apresentação especificada.

ActivePresentation.Close

Estes são os principais métodos da classe

ApplyTemplate2 - Aplica um modelo de design e uma e de tema à apresentação.

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

FollowHyperlink - Exibe um documento armazenado em cache, se este já tiver sido baixado. Caso contrário, esse método resolve o hiperlink, faz o download do documento de destino e exibe-o no aplicativo apropriado.

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

MergeWithBaseline - Mescla uma apresentação com outra apresentação.

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

PublishSlides - Cria uma apresentação da Web no formato HTML contendo slides 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.PublishSlides SlideLibraryUrl:=strSlideLibraryUrl

SendFaxOverInternet - Envia uma apresentação como um fax para os destinatários especificados.

ActivePresentation.SendFaxOverInternet

Propriedades

Broadcast Retorna o objeto de transmissão do objeto Presentation atual. Somente leitura.

Dim brdBroadcast As Broadcast
Set brdBroadcast = ActivePresentation.Broadcast

BuiltInDocumentProperties Retorna uma coleção DocumentProperties que representa todas as propriedades de documento internas para a apresentação especificada. Somente leitura.

Dim dpsBuiltInDocumentProperties As DocumentProperties
dpsBuiltInDocumentProperties = ActivePresentation.BuiltInDocumentProperties

Coauthoring Retorna um objeto Coauthoring do objeto de apresentação atual. Somente leitura.

Dim cthCoauthoring As Coauthoring
Set cthCoauthoring = ActivePresentation.Coauthoring

CommandBars Retorna uma coleção CommandBars que representa a barra de comandos mesclada definir a partir do aplicativo de contêiner de host e o Microsoft PowerPoint. Essa propriedade retorna um objeto válido somente quando o contêiner é um servidor DocObject, como o Microsoft Binder, e o PowerPoint está atuando como um servidor OLE. Somente leitura.

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

Container Retorna o objeto que contém a apresentação incorporada especificada. Somente leitura.

Dim objContainer As Object
Set objContainer = ActivePresentation.Container

ContentTypeProperties Retorna a coleção Microsoft Office metaproperties que descreve os metadados armazenados na apresentação. Somente leitura.

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

CustomDocumentProperties Retorna uma coleção DocumentProperties que representa todas as propriedades de documento personalizadas para a apresentação especificada. Somente leitura.

Dim dpsCustomDocumentProperties As DocumentProperties
dpsCustomDocumentProperties = ActivePresentation.CustomDocumentProperties

CustomXMLParts Retorna um objeto CustomXMLParts que representa a coleção de partes XML personalizadas, associado ao objeto apresentação especificado. Somente leitura.

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

DefaultLanguageID Retorna ou define o idioma padrão de uma apresentação. Leitura/gravação.

ActivePresentation.DefaultLanguageID = msoLanguageIDMixed

DefaultShape Retorna um objeto Shape que representa a forma padrão para a apresentação. Somente leitura.

Dim shpDefaultShape As Shape
Set shpDefaultShape = ActivePresentation.DefaultShape

Designs Retorna um objeto Designs que representa uma coleção de designs.

Dim dsgsDesigns As Designs
Set dsgsDesigns = ActivePresentation.Designs

DocumentInspectors Retorna a coleção Microsoft Office DocumentInspectors . Somente leitura.

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

DocumentLibraryVersions Retorna uma coleção DocumentLibraryVersions que representa a coleção de versões de uma apresentação compartilhada que tem o controle de versão habilitado e que está armazenada em uma biblioteca de documentos em um servidor.

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

EncryptionProvider Retorna um String que especifica o nome do provedor de criptografia de algoritmo que PowerPoint usa ao criptografar documentos. Leitura/gravação.

ActivePresentation.EncryptionProvider =

FarEastLineBreakLanguage Retorna ou define o idioma usado para determinar qual nível de quebra de linha será usado quando a opção de controle de quebra de linha estiver ativa. Leitura/gravação.

ActivePresentation.FarEastLineBreakLanguage = MsoFarEastLineBreakLanguageJapanese

FarEastLineBreakLevel Retorna ou define o nível de quebra de linha baseado em caracteres asiáticos. Leitura/gravação.

ActivePresentation.FarEastLineBreakLevel = ppFarEastLineBreakLevelCustom

Final Determina se a apresentação está marcada como final somente leitura. Leitura/gravação.

ActivePresentation.Final = True

GridDistance Define ou retorna um valor único que representa a distância entre as linhas de grade. Leitura/gravação.

ActivePresentation.GridDistance = 18

Guides Retorna a coleção de guias associada a um layout personalizado. Somente leitura.

Dim gdsGuides As Guides
Set gdsGuides = ActivePresentation.Guides

HandoutMaster Retorna um objeto Master que representa o folheto mestre. Somente leitura.

Dim mstHandoutMaster As Master
Set mstHandoutMaster = ActivePresentation.HandoutMaster

HasHandoutMaster Indica se a apresentação tem mídia que resida em um folheto mestre. Somente leitura

Dim booHasHandoutMaster As Boolean
booHasHandoutMaster = ActivePresentation.HasHandoutMaster

HasNotesMaster Indica se a apresentação tem mídia que resida em uma anotação mestre. Somente leitura.

Dim booHasNotesMaster As Boolean
booHasNotesMaster = ActivePresentation.HasNotesMaster

HasTitleMaster MsoTrue se a apresentação especificada tem um título mestre. Somente leitura.

Dim mtsHasTitleMaster As Office.MsoTriState
mtsHasTitleMaster = ActivePresentation.HasTitleMaster

HasVBProject Retorna se uma apresentação ativa contém um projeto do Visual Basic for Applications VBA. Somente leitura.

Dim booHasVBProject As Boolean
booHasVBProject = ActivePresentation.HasVBProject

InMergeMode Indica se a janela de documento está no modo de mesclagem. Somente leitura

Dim booInMergeMode As Boolean
booInMergeMode = ActivePresentation.InMergeMode

NoLineBreakAfter Retorna ou define os caracteres que não podem terminar uma linha. Leitura/gravação.

ActivePresentation.NoLineBreakAfter =

NoLineBreakBefore Retorna ou define os caracteres que não podem iniciar uma linha. Leitura/gravação.

ActivePresentation.NoLineBreakBefore =

NotesMaster Retorna um objeto Master que representa as anotações mestras. Somente leitura.

Dim mstNotesMaster As Master
Set mstNotesMaster = ActivePresentation.NotesMaster

PageSetup Retorna um objeto PageSetup cujas propriedades controlam os atributos de configuração de slides para a apresentação especificada. Somente leitura.

Dim pspPageSetup As PageSetup
Set pspPageSetup = ActivePresentation.PageSetup

Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActivePresentation.Parent

Path Retorna uma cadeia de caracteres que representa o caminho para o objeto especificado da apresentação. Somente leitura.

Dim strPath As String
strPath = ActivePresentation.Path

Permission expression.expression. Permission.

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

ReadOnly Retorna se a apresentação especificada é somente leitura. Somente leitura.

Dim mtsReadOnly As Office.MsoTriState
mtsReadOnly = ActivePresentation.ReadOnly

ReadOnlyRecommended True   se a apresentação tiver sido salva como somente leitura recomendada. Boolean somente leitura .

Dim booReadOnlyRecommended As Boolean
booReadOnlyRecommended = ActivePresentation.ReadOnlyRecommended

Research Retorna um objeto Research que fornece acesso ao recurso de serviço de pesquisa do Microsoft PowerPoint. Somente leitura.

Dim rsrResearch As Research
Set rsrResearch = ActivePresentation.Research

SectionProperties Retorna um objeto SectionProperties. Somente leitura.

Dim spsSectionProperties As SectionProperties
Set spsSectionProperties = ActivePresentation.SectionProperties

SensitivityLabel

Dim islSensitivityLabel As Office.ISensitivityLabel
islSensitivityLabel = ActivePresentation.SensitivityLabel

ServerPolicy Retorna um objeto do Microsoft Office ServerPolicy . Somente leitura.

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

SharedWorkspace Este objeto ou membro foi substituído, mas continua a fazer parte do modelo de objeto para compatibilidade com versões anteriores. Você não deve usá-lo nos novos aplicativos.

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

Signatures Retorna um objeto SignatureSet que representa uma coleção de assinaturas digitais. Somente leitura.

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

SlideMaster Retorna um objeto Master que representa o slide mestre.

Dim mstSlideMaster As Master
Set mstSlideMaster = ActivePresentation.SlideMaster

Slides Retorna uma coleção Slides que representa todos os slides da apresentação especificada. Somente leitura.

Dim sldsSlides As Slides
Set sldsSlides = ActivePresentation.Slides

SnapToGrid Determina se as formas devem ser encaixadas nas linhas de grade da apresentação especificada. Leitura/gravação.

ActivePresentation.SnapToGrid = msoTrue

Sync Este objeto ou membro foi substituído, mas continua a fazer parte do modelo de objeto para compatibilidade com versões anteriores. Você não deve usá-lo nos novos aplicativos.

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

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

Dim tgsTags As Tags
Set tgsTags = ActivePresentation.Tags

TitleMaster Retorna um objeto Master que representa o título mestre da apresentação especificada.

Dim mstTitleMaster As Master
Set mstTitleMaster = ActivePresentation.TitleMaster

VBASigned Determina se o projeto do Visual Basic for Applications VBA para o documento especificado tem uma assinatura digital. Somente leitura.

Dim mtsVBASigned As Office.MsoTriState
mtsVBASigned = ActivePresentation.VBASigned

VBProject Retorna um objeto VBProject que representa o projeto do Visual Basic individual para a apresentação. Somente leitura.

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

Windows Retorna uma coleção DocumentWindows que representa todas as janelas de documentos associadas à apresentação especificada. Somente leitura.

Dim dwsWindows As DocumentWindows
Set dwsWindows = ActivePresentation.Windows

WorkIdentity

ActivePresentation.WorkIdentity =

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

Dim lngCount As Long
lngCount = Presentations.Count

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

Dim objParent As Object
Set objParent = Presentations.Parent