Propriété Application.TraceFlags (Visio)

Récupère ou définit les événements consignés dans le journal lors d’une instance de Microsoft Visio. Lecture-écriture.

Syntaxe

expression. TraceFlags

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

Entier long

Remarques

La valeur de la propriété TraceFlags peut être une combinaison des valeurs suivantes.

Constante	Valeur	Description
visTraceEvents	&H1	Occurrences d'événement
visTraceAdvises	&H2	Appels de notification sortants
visTraceAddonInvokes	&H4	Appels de module complémentaire
visTraceCallsToVBA	&H8	Appels VBA

La définition de l'indicateur visTraceEvents entraîne l'enregistrement dans la fenêtre Exécution de la plupart des événements Visio, au moment où ils surviennent. Dans la plupart des cas, cela se produit même si aucun agent externe n'entend ou ne répond à l'événement. Dans de rares cas, Visio sait que l'événement n'est pas entendu et n'enregistre pas ces événements. Visio n'enregistre pas non plus les événements ou les notifications inactives. En outre, certains événements sont des spécialisations d'autres événements et ne sont pas enregistrés. Par exemple, l'événement SelectionAdded est fabriqué à partir d'événements ShapeAdded distincts, et la fenêtre Exécution enregistre les événements ShapeAdded mais pas les événements SelectionAdded.

Voici une chaîne que Visio pourrait enregistrer lorsque visTraceEvents est défini :

-event: 0x8040 /doc=1 /page=1 /shape=Sheet.1

Le nombre après l'argument « -event: » est le code de l'événement qui s'est produit. Dans ce cas, 0x8040 est le code de l'événement ShapeAdded. Le texte suivant le code d'événement varie d'un événement à l'autre.

La définition de l'indicateur visTraceAdvises écrit une ligne dans la fenêtre Exécution juste avant que Visio appelle une procédure de gestion des événements, et une autre ligne juste après que le gestionnaire d'événement soit renvoyé. Cela comprend les procédures d'événement dans les projets Microsoft Visual Basic pour Applications (VBA), par exemple, les procédures dans ThisDocument. Voici un exemple de ce que vous pouvez trouver :

>advise seq=4 event=0x8040 sink=0x40097598 
<advise seq=4 

Ces chaînes indiquent l'appel à un gestionnaire d'événement et la valeur renvoyée par ce dernier. Le numéro séquentiel indique également que cet événement était le quatrième événement déclenché par Visio. Le code de l'événement est 0x8040 et l'adresse de l'interface appelée par Visio est 0x40097598.

La définition de l'indicateur visTraceAddonInvokes effectue un enregistrement lorsque Visio appelle un fichier EXE ou VSL de module complémentaire et lorsque Visio reprend le contrôle. Voici un exemple :

>invokeAO: SHOWARGS.EXE 
<invokeAO: completed 

La définition de l'indicateur visTraceAddonInvokes effectue également le suivi des tentatives d'appel des modules complémentaires introuvables. Par exemple, si la formule d'une cellule est =RunAddon(« xxx ») et si le module complémentaire « xxx » n'existe pas, le message « InvokeAO: Impossible de mapper xxx vers un module complémentaire connu » est enregistré.

La définition de l’indicateur visTraceCallToVBA écrit une ligne dans la fenêtre Exécution juste avant d’effectuer un appel à VBA autre qu’un appel à une procédure événementielle (utilisez visTraceAdvises pour journaliser les appels aux procédures événementielles VBA) et une autre ligne juste après que VBA renvoie le contrôle à Visio. Cet indicateur trace les appels de macro, les appels aux procédures VBA résultant de l’évaluation des cellules qui utilisent les opérandes RunAddon ou CallThis, et les appels résultant de la sélection d’éléments de menu ou de barre d’outils personnalisés. Voici un exemple :

>invokeVBA: Module1.MyMacro 
<invokeVBA: completed 

Aucun message n'apparaît dans la fenêtre Exécution à moins qu'un document possédant un projet VBA ne soit ouvert. Visio ne conserve qu'un petit nombre de messages à enregistrer lorsqu'un tel document est ouvert. Mais les messages sont perdus si aucun document avec un projet n'est disponible pendant des périodes de temps conséquentes. Les messages sont également perdus si VBA est réinitialisé ou s'il existe des points d'arrêt non désactivés.

Le code des projets VBA peut disséminer ses messages avec ceux enregistrés par Visio à l'aide d'instructions Debug.Print standard. Le code de projets non VBA peut enregistrer des messages dans la fenêtre Exécution à l'aide de l'instruction Document.VBProject.ExecuteLine("Debug.Print ""UneChaîne""").

La propriété TraceFlags est enregistrée dans l'entrée TraceFlags de la section Application du registre.

Exemple

Cette macro VBA indique comment utiliser la propriété TraceFlags pour enregistrer des événements, des notifications, des appels de programmes complémentaires et des appels Visual Basic dans la fenêtre Exécution.

 
Public Sub TraceFlags_Example() 
 
 Application.TraceFlags = visTraceEvents + visTraceAdvises + _ 
 visTraceAddonInvokes + visTraceCallsToVBA 
 
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.