Propriété Page.OLEObjects (Visio)

Renvoie la collection OLEObjects d'une page. En lecture seule.

Syntaxe

expression. OLEObjects

Expression Variable qui représente un objet Page .

Valeur renvoyée

OLEObjects

Remarques

La propriété OLEObjects renvoie une collection OLEObjects qui comprend des objets OLE 2.0 liés ou incorporés ou des contrôles ActiveX contenus dans un document, une forme de base ou une page.

Exemple

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

 
Public Sub OLEObjects_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 collection of OLEObjects on the page. 
 For intCounter = 1 To vsoOLEObjects.Count 
 Debug.Print vsoOLEObjects(intCounter).ClassID 
 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.