Classe Application (PowerPoint VBA)

A classe Application representa todo o aplicativo Microsoft PowerPoint.

O procedimento principal da classe Application é Activate

Temas

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

Password/Protect with its procedures ActiveProtectedViewWindow e ProtectedViewWindows
Name with its procedures Caption e Name
Display/Show with its procedures DisplayAlerts, DisplayDocumentInformationPanel, DisplayGridLines, DisplayGuides, ShowStartupDialog, ShowWindowsInTaskbar e SlideShowWindows
Format with its procedures Height, SmartArtColors, SmartArtLayouts, SmartArtQuickStyles, Visible e Width

Métodos

Este é o método principal da classe Application

Activate - Ativa o objeto especificado.

Application.Activate

Estes são os principais métodos da classe

Help - Exibe um tópico de Ajuda.

Application.Help

Run - Executa um procedimento do Visual Basic.

Dim strMacroName As String: strMacroName = "TestPass"
Dim varsafeArrayOfParams(1 To 2) As Variant
varsafeArrayOfParams(1) = "hi"
varsafeArrayOfParams(2) = 7 
Application.Run(MacroName:=strMacroName, safeArrayOfParams:=varsafeArrayOfParams)

Propriedades

Active Retorna se o painel ou janela especificada está ativa. Somente leitura.

Dim mtsActive As Office.MsoTriState
mtsActive = Application.Active

ActiveEncryptionSession Representa sessão de criptografia associada à apresentação ativa. Somente leitura.

Dim lngActiveEncryptionSession As Long
lngActiveEncryptionSession = Application.ActiveEncryptionSession

ActivePresentation Retorna um objeto Presentation que representa a apresentação aberta na janela ativa. Somente leitura.

Dim prsActivePresentation As Presentation
Set prsActivePresentation = ActivePresentation

ActivePrinter Retorna o nome da impressora ativa. Somente leitura.

Dim strActivePrinter As String
strActivePrinter = Application.ActivePrinter

ActiveWindow Retorna um objeto DocumentWindow que representa a janela de documento ativa. Somente leitura.

Dim dwwActiveWindow As DocumentWindow
Set dwwActiveWindow = ActiveWindow

AddIns Retorna a coleção AddIns específica do programa que representa todos os suplementos listados na caixa de diálogo suplementos clique no botão Office, em Opções do PowerPoint, em suplementos, em suplementos do **PowerPoint **na lista gerenciar . Somente leitura.

Dim aisAddIns As AddIns
Set aisAddIns = AddIns

Assistance Obtém uma referência para o objeto Microsoft Office IAssistance , que fornece um meio para que os desenvolvedores criem uma experiência de ajuda personalizada para os usuários no Microsoft Office. Somente leitura.

Dim iaeAssistance As Office.IAssistance
Set iaeAssistance = Application.Assistance

AutoCorrect Retorna um objeto AutoCorrect que representa a funcionalidade AutoCorreção no Microsoft PowerPoint.

Dim actAutoCorrect As AutoCorrect
Set actAutoCorrect = Application.AutoCorrect

AutomationSecurity Representa o modo de segurança que o Microsoft PowerPoint usa ao abrir arquivos programaticamente. Leitura/gravação.

Application.AutomationSecurity = msoAutomationSecurityLow

Build Retorna o número de compilação da instância atual do Microsoft PowerPoint. Somente leitura.

Dim strBuild As String
strBuild = Application.Build

ChartDataPointTrack Retorna ou define um Boolean que especifica se os gráficos usam o rastreamento de ponto de dados de referência de célula. Leitura/gravação.

Application.ChartDataPointTrack = True

COMAddIns Retorna uma referência aos suplementos de COM Component Object Model carregados no momento no Microsoft PowerPoint. Esses suplementos são listados na guia suplementos da caixa de diálogo Opções do PowerPoint . Somente leitura.

Dim comsCOMAddIns As Office.COMAddIns
Set comsCOMAddIns = Application.COMAddIns

CommandBars Retorna uma coleção CommandBars que representa todas as barras de comandos no Microsoft PowerPoint. Somente leitura.

Dim cbsCommandBars As Office.CommandBars
Set cbsCommandBars = CommandBars

FeatureInstall Retorna ou define como o Microsoft PowerPoint lida com chamadas a métodos e propriedades que requerem recursos ainda não instalados. Leitura/gravação.

Application.FeatureInstall = msoFeatureInstallNone

FileConverters Retorna informações sobre os conversores de arquivo instalados. Retorna NULL se não houver conversores instalados. Somente leitura .

Dim fcsFileConverters As FileConverters
Set fcsFileConverters = FileConverters

FileDialog Retorna um objeto FileDialog que representa uma única instância de uma caixa de diálogo de arquivo. Somente leitura.

Dim fdgFileDialog As Office.FileDialog
Set fdgFileDialog = Application.FileDialog(Type:=msoFileDialogOpen)

FileValidation Retorna ou define um valor que indica como o PowerPoint validará arquivos antes de abri-los. Leitura/gravação

Application.FileValidation = msoFileValidationDefault

IsSandboxed Retorna true se a apresentação especificada é aberta em uma janela de modo de exibição protegido. Somente leitura.

Dim booIsSandboxed As Boolean
booIsSandboxed = IsSandboxed

LanguageSettings Retorna um objeto LanguageSettings que contém informações sobre as configurações de idioma no Microsoft PowerPoint. Somente leitura.

Dim lssLanguageSettings As Office.LanguageSettings
Set lssLanguageSettings = Application.LanguageSettings

Left Retorna ou define um valor único que representa a distância em pontos da borda esquerda do documento, aplicativo e windows de apresentação de slides até a borda esquerda da área do cliente da janela do aplicativo. A definição dessa propriedade como um valor positivo ou negativo muito grande pode posicionar a janela completamente fora da área de trabalho. Leitura/gravação.

Application.Left =

NewPresentation

Dim nfeNewPresentation As Office.NewFile
Set nfeNewPresentation = Application.NewPresentation

OperatingSystem Retorna o nome do sistema operacional. Somente leitura.

Dim strOperatingSystem As String
strOperatingSystem = Application.OperatingSystem

Options Retorna um objeto Options que representa opções do aplicativo no Microsoft Office PowerPoint.

Dim optsOptions As Options
Set optsOptions = Application.Options

Path Retorna uma cadeia de caracteres que representa o caminho para o objeto Application especificado. Somente leitura.

Dim strPath As String
strPath = Application.Path

Presentations Retorna uma coleção Presentations que representa todas as apresentações abertas. Somente leitura.

Dim prsPresentations As Presentations
Set prsPresentations = Presentations

ProductCode Retorna o identificador exclusivo GUID do Microsoft Office PowerPoint. Somente leitura.

Dim strProductCode As String
strProductCode = Application.ProductCode

SensitivityLabelPolicy

Dim slpSensitivityLabelPolicy As Office.SensitivityLabelPolicy
Set slpSensitivityLabelPolicy = Application.SensitivityLabelPolicy

Top Retorna ou define um valor único que representa a distância em pontos a partir da borda superior do documento, aplicativo e a janela de apresentação de slides até a borda superior da área do cliente da janela do aplicativo. Leitura/gravação.

Application.Top = 100

VBE Retorna um objeto VBE que representa o Editor do Visual Basic. Somente leitura.

Dim vbeVBE As VBIDE.VBE
Set vbeVBE = Application.VBE

Version Retorna o número da versão do Microsoft PowerPoint. Somente leitura.

Dim strVersion As String
strVersion = Application.Version

Windows Retorna uma coleção DocumentWindows que representa todas as janelas de documentos abertos. Somente leitura.

Dim dwsWindows As DocumentWindows
Set dwsWindows = Windows

WindowState Retorna ou define o estado da janela especificada. Leitura/gravação.

Application.WindowState = ppWindowMaximized