Propriété Window.Document (Visio)

Article
04/07/2023

Obtient l’objet Document associé à un objet . En lecture seule.

Syntaxe

expression. Document

Expression Variable qui représente un objet Window .

Valeur renvoyée

Document

Remarques

La propriété Document d'une fenêtre de gabarit fixe renvoie un objet Document pour le gabarit placé en haut de la fenêtre. Toutefois, si celui-ci est remplacé par un autre gabarit, le document du premier gabarit est fermé et les références qui y sont faites ne sont plus valides. Pour optimiser les résultats, vous devez partir du principe que les références aux documents des gabarits fixes ne sont pas permanentes.

Si un objet Window indique qu’aucun document n’est ouvert, aucun document n’est retourné et aucune exception n’est levée. Votre solution devra vérifier le renvoi de la valeur Nothing après la récupération de la propriété Document d'un objet Window.

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) suivante indique comment utiliser la propriété Document de divers objets pour récupérer des données relatives à ces objets et procède comme suit :

Elle ajoute un objet Document à la collection Documents et définit plusieurs des propriétés de l'objet Document.
Elle récupère la fenêtre active et la page active, dessine un rectangle sur la page et place une forme de base sur l'objet Document pour permettre à divers objets d'y travailler.
Elle utilise la propriété Document pour récupérer l'objet Document associé à chacun des autres objets.

 
Public Sub Document_Example() 
 
 Dim vsoDocument As Visio.Document 
 Dim vsoTempDocument As Visio.Document 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 Dim vsoWindow As Visio.Window 
 Dim vsoMaster As Visio.Master 
 
 'Add a document to the Documents collection. 
 Set vsoDocument = Documents.Add("") 
 
 'Set the title of the document. 
 vsoDocument.Title = "My Document" 
 
 'Get the active window and active page. 
 Set vsoWindow = ActiveWindow 
 Set vsoPage = ActivePage 
 
 'Draw a rectangle on the page. 
 Set vsoShape = vsoPage.DrawRectangle(2, 2, 5, 5) 
 
 'Add a master. 
 Set vsoMaster = vsoDocument.Masters.Add 
 
 'Get the Document object associated with various other objects.'Get the Document object associated with the Window object. 
 Set vsoTempDocument = vsoWindow.Document 
 
 'Get the Title property of the Document object to verify that this is the same document we added earlier. 
 Debug.Print vsoTempDocument.Title 
 
 'Get the Document object associated with the Page object. 
 Set vsoTempDocument = vsoPage.Document 
 Debug.Print vsoTempDocument.Title 
 
 'Get the Document object associated with the Shape object. 
 Set vsoTempDocument = vsoShape.Document 
 Debug.Print vsoTempDocument.Title 
 
 'Get the Document object associated with the Master object. 
 Set vsoTempDocument = vsoMaster.Document 
 Debug.Print vsoTempDocument.Title 
 
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.

Partager via