Partager via


Shapes.Application, propriété (Publisher)

Lorsqu’elle est utilisée sans qualificateur d’objet, cette propriété renvoie un objet Application qui représente l’instance actuelle de Publisher.

Lorsqu’elle est utilisée avec un qualificateur d’objet, elle renvoie un objet Application qui représente l’auteur de l’objet spécifié.

Si elle est utilisée avec un objet OLE Automation, elle renvoie l’application de cet objet.

Syntaxe

expression. Application

expression Variable qui représente un objet Shapes.

Exemple

Cet exemple affiche les informations de version et de build pour Publisher.

With Application 
 MsgBox "Current Publisher: version " _ 
 & .Version & " build " & .Build 
End With

Cet exemple affiche le nom de l'application qui a créé chaque objet OLE lié sur la page un de la composition active.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.