OLEObject.ProgID, propriété (Visio)

Renvoie l’identificateur de programme d’une forme représentant un contrôle ActiveX ou un objet OLE lié ou incorporé. En lecture seule.

Syntaxe

expression. ProgID

Expression Variable qui représente un objet OLEObject .

Valeur renvoyée

Chaîne

Remarques

La propriété ProgID génère une exception si la forme ne représente pas un contrôle ActiveX ou un objet OLE 2.0 lié ou incorporé. Une forme représente un contrôle ActiveX, un objet lié ou incorporé si la propriété ForeignType renvoie visTypeIsOLE2 dans la valeur.

Utilisez la propriété ProgID d’un objet Shape ou OLEObject pour obtenir l’identificateur de programme de l’objet. Chaque classe d’objet OLE stocke un identificateur de programme pour lui-même dans le registre. Cela se produit généralement lorsque le programme qui émet l’objet procède lui-même à son installation. Les programmes clients utilisent cet identificateur pour identifier l’objet. Vous utilisez l’identificateur Microsoft Visio lorsque vous exécutez une instruction telle que GetObject (, « Visio.Application ») à partir d’un programme Microsoft Visual Basic.

Voici des exemples de chaînes renvoyées par ProgID :

 
Visio.Drawing.5 
MSGraph.Chart.5 
Forms.CommandButton.1 

Après avoir utilisé la propriété Object d'une forme pour obtenir une interface IDispatch sur l'objet que la forme représente, vous pouvez obtenir la propriété ClassID ou ProgID de la forme pour déterminer les méthodes et les propriétés fournies par cette interface.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment obtenir la collection OLEObjects d'une page active et afficher le ProgID pour chaque objet OLE OLEObject dans la fenêtre Exécution. Cet exemple implique que la page active comporte au moins un objet OLE 2.0 lié ou incorporé ou un contrôle ActiveX.

 
Public Sub ProgID_Example() 
 
 Dim intCounter As Integer 
 Dim vsoOLEObjects As Visio.OLEObjects 
 
 'Get the OLEObjects collection of the active page. 
 Set vsoOLEObjects = ActivePage.OLEObjects 
 
 'Step through the OLEObjects collection. 
 For intCounter = 1 To vsoOLEObjects.Count 
 Debug.Print vsoOLEObjects(intCounter).ProgID 
 Next intCounter 
 
End Sub

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.