Propriété InvisibleApp.VBE (Visio)

Article
04/07/2023

Obtient l’objet racine du modèle objet exposé par Microsoft Visual Basic pour Applications (VBA). Cette propriété permet d’accéder aux projets VBA associés aux projets Microsoft Visio actuellement ouverts, et de les manipuler. En lecture seule.

Syntaxe

expression. VBE

Expression Variable qui représente un objet InvisibleApp .

Valeur renvoyée

Objet

Remarques

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

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

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 VBE.

À partir de Visio 2002, la propriété Vbe déclenche 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 VBA. 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 utiliser la propriété Vbe pour déterminer combien de projets VBA sont ouverts dans une instance de Visio.

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 Vbe_Example() 
 
     Dim vbideVBE As VBIDE.VBE 
 
     Set vbideVBE = Visio.Application.Vbe 
     Debug.Print vbideVBE.VBProjects.Count 
 
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