Objet ThisDocument (Visio)
Le projet Visual Basic pour Applications (VBA) de chaque document Visio a un module de classe appelé ThisDocument. Lorsqu’il est référencé à partir du code dans le projet, l’objet ThisDocument renvoie une référence à l’objet Document du projet.
Vous pouvez afficher le nom du document du projet VBA dans une boîte de message à l’aide de l’instruction suivante.
MsgBox ThisDocument.Name
Vous pouvez obtenir la première page du document du projet VBA à l’aide du code suivant.
Dim vsoPage As Visio.Page
Set vsoPage = ThisDocument.Pages.Item(1)
Remarques
Pour manipuler le document associé à votre projet VBA, utilisez l'objet ThisDocument.
Si vous souhaitez manipuler un document, mais pas nécessairement le document associé à votre projet VBA, récupérez un objet Document de la collection Documents.
La propriété ActiveDocument renvoie souvent, mais pas nécessairement, une référence au même document que l'objet ThisDocument. Les objets ActiveDocument et ThisDocument sont identiques si le document affiché dans la fenêtre de Visio active est le document contenant le projet de l'objet ThisDocument. L'utilisation de l'objet ActiveDocument ou ThisDocument par votre code dépend de l'objectif de votre programme.
Remarque
Vous pouvez étendre le jeu de propriétés et de méthodes d'un objet Document d'un projet en ajoutant des propriétés et des méthodes publiques au module de classe ThisDocument de ce projet. Les nouvelles méthodes et propriétés sont mises à disposition de la même façon que celles qui sont intégrées et mises en œuvre par Visio.
Les nouvelles méthodes et propriétés ne sont pas disponibles si vous référencez d'autres objets Document. L'objet ThisDocument n'est pas disponible pour un code ne faisant pas partie du projet VBA d'un document Visio.
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.