InvisibleApp. ActiveDocument, propriété (Visio)InvisibleApp.ActiveDocument property (Visio)

Renvoie l’objet document actif, qui est le document affiché dans la fenêtre active.Returns the active Document object, which is the document shown in the active window. En lecture seule.Read-only.

SyntaxeSyntax

expression. ActiveDocumentexpression.ActiveDocument

expression Variable qui représente un objet InvisibleApp .expression A variable that represents an InvisibleApp object.

Valeur renvoyéeReturn value

DocumentDocument

RemarquesRemarks

Si aucun document n'est ouvert, il n'existe pas de document actif et la propriété ActiveDocument renvoie la valeur Nothing sans générer d'exception.When no documents are open, there is no active document and the ActiveDocument property returns the value Nothing and does not raise an exception.

Si votre code se trouve dans le projet Microsoft Visual Basic d’un document Visio, la propriété ActiveDocument , mais pas nécessairement, renvoie une référence à l’objet ThisDocument , un module de classe dans le projet Visual Basic de chaque Microsoft Visio sous.If your code is in the Microsoft Visual Basic project of a Visio document, the ActiveDocument property often, but not necessarily, returns a reference to the ThisDocument object, a class module in the Visual Basic project of every Microsoft Visio document. Si l’objet ThisDocument apparaît dans la fenêtre active, les objets ActiveDocument et ThisDocument font référence au même document.If the ThisDocument object is shown in the active window, the ActiveDocument object and the ThisDocument object refer to the same document. Toute référence à l’objet ThisDocument dans le code d’un projet renvoie une référence à l’objet Document du projet.When the ThisDocument object is referenced from code in a project, it returns a reference to the project's Document object.

L'utilisation de l'objet ActiveDocument ou ThisDocument dépend de l'objectif de votre code.Whether you use the ActiveDocument object or the ThisDocument object depends on the purpose of your code.

Vous pouvez comparer le résultat renvoyé par la propriété ActiveDocument à la valeur Nothing pour déterminer si un document est actif.You can compare the result returned by the ActiveDocument property with the value Nothing to determine if a document is active. Si la valeur de la propriété documents. Count est supérieure à zéro, au moins un document est ouvert et actif.If the value of the Documents.Count property is greater than zero, at least one document is open and active.

ExempleExample

La macro Microsoft Visual Basic pour Applications (VBA) suivante indique deux méthodes sécurisées d’obtenir un document actif (s’il en existe un).The following Microsoft Visual Basic for Applications (VBA) macro shows two safe ways to get an active document (if one exists). Dans chaque cas, elle imprime le nom du document actif dans la fenêtre Exécution.In each case, it prints the name of the active document in the Immediate window. Le code obtient le document actif sans qualification de l’objet global Visio, automatiquement disponible pour le code VBA qui fait partie du projet VBA d’un document Visio.The code gets the active document without qualification from the Visio global object, which is automatically available to VBA code that is part of the VBA project of a Visio document.

 
Public Sub ActiveDocument_Example() 
 
 Dim vsoDocument As Document 
 
 'First method 
 If Documents.Count > 0 Then 
 Set vsoDocument = ActiveDocument 
 Debug.Print vsoDocument.Name 
 Else 
 Debug.Print "No active document." 
 End If 
 
 'Second method 
 If Not(ActiveDocument Is Nothing) Then 
 Set vsoDocument = ActiveDocument 
 Debug.Print vsoDocument.Name 
 Else 
 Debug.Print "No active document." 
 End If 
 
End Sub

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.