Propriedade Pages.Application (Publisher)
Quando usada sem um qualificador de objeto, essa propriedade retorna um objeto Application que representa a instância atual do Publisher.
Quando usado com um qualificador de objeto, essa propriedade retorna um objeto Application que representa o criador do objeto especificado.
Quando usado com um objeto OLE de automação, ele retorna o aplicativo do objeto.
expressão. Aplicativo
Expressão Uma variável que representa um objeto Pages .
Este exemplo exibe informações sobre a versão e compilação do Publisher.
With Application
MsgBox "Current Publisher: version " _
& .Version & " build " & .Build
End With
Este exemplo exibe o nome do aplicativo que criou cada objeto OLE vinculado na página da publicação ativa.
Dim shpOle As Shape
For Each shpOle In ActiveDocument.Pages(1).Shapes
If shpOle.Type = pbLinkedOLEObject Then
MsgBox shpOle.OLEFormat.Application.Name
End If
Next
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.