Propriété Document.VBProject (Visio)

Article
04/07/2023

Cette propriété renvoie un objet d’automation vous permettant de contrôler le projet Microsoft Visual Basic pour Applications (VBA) du document. En lecture seule.

Syntaxe

expression. VBProject

Expression Variable qui représente un objet Document .

Valeur renvoyée

Objet

Remarques

Pour obtenir des informations sur l’objet retourné par la propriété VBProject , procédez comme suit :

Pour obtenir des informations sur l’objet renvoyé par la propriété VBProject

Dans le groupe Code de l’onglet Développeur , cliquez sur Visual Basic.
Dans l’éditeur Visual Basic, dans le menu Outils, cliquez sur Références.
Dans la boîte de dialogue Références, cliquez sur Microsoft Visual Basic for Applications Extensibility 5.3, puis sur OK.
Dans le menu Affichage, cliquez sur Explorateur d’objets.
Dans la liste Projet/bibliothèque, choisissez VBIDE.
Dans la liste Classes, examinez la classe nommée VBProject.

Si aucun projet VBA n’existe dans le document, la propriété VBProject en crée un.

À partir de Visio 2002, la propriété VBProject produit une exception si vous utilisez un environnement à la sécurité renforcée et si votre administrateur système a interdit l’accès au modèle objet Visual Basic. Il n’est pas possible d’en activer l’accès à l’aide de l’interface utilisateur ni par la programmation ; l’administrateur système doit activer (ou désactiver) l’accès en définissant une stratégie de groupe. Ceci contribue à la protection contre les virus qui se répandent en accédant aux projets Visual Basic des modèles souvent utilisés et en y injectant leur code.

Exemple

Cette macro VBA indique comment afficher le nom des bibliothèques référencées par un projet VBA dans la fenêtre Exécution.

Avant d’exécuter ce code, vérifiez que la case Approuver l’accès au modèle objet du projet VBA est cochée sous Paramètres de macro développeur dans la page Paramètres des macros de la boîte de dialogue Centre de gestion de la confidentialité (cliquez sur l’onglet Fichier , sur Options, sur Centre de gestion de la confidentialité, puis sur Paramètres du Centre de gestion de la confidentialité).

Public Sub VBProject_Example()  
 
    Dim varThisProject As Variant 
    Dim intReferences As Integer 
 
    Set varThisProject = ThisDocument.VBProject  
 
    intReferences = varThisProject.References.Count  
    While intReferences > 0  
        Debug.Print varThisProject.References(intReferences).Name  
        intReferences = intReferences - 1  
    Wend 
 
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