Compartilhar via


Propriedade Shapes.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.

Sintaxe

expressão. Aplicativo

expressão Uma variável que representa um objeto Formas.

Exemplo

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

Suporte e comentários

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.