Propriété Document.MasterShortcuts (Visio)

Article
04/07/2023

Renvoie la collection MasterShortcuts pour un gabarit de document. En lecture seule.

Syntaxe

expression. MasterShortcuts

Expression Variable qui représente un objet Document .

Valeur renvoyée

MasterShortcuts

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la propriété MasterShortcuts pour récupérer la collection de raccourcis de forme de base d'un gabarit de document.

Avant d’exécuter cet exemple, remplacez la référence à StencilWithShortcuts.vss par une référence à un fichier .vss valide qui contient des raccourcis maîtres.

Pour créer un gabarit contenant des raccourcis de forme de base :

Ouvrez un gabarit existant. (Dans la fenêtre Formes, cliquez sur Autres formes, puis sur Ouvrir un gabarit et double-cliquez sur un gabarit.)
Cliquez avec le bouton droit de la souris sur une forme de base du gabarit et cliquez sur Copier.
Créez un nouveau gabarit. (Dans la fenêtre Formes, cliquez sur Autres formes, puis sur Nouveau gabarit (unités américaines) ou sur Nouveau gabarit (métrique).)
Cliquez avec le bouton droit de la souris sur le nouveau gabarit et cliquez sur Coller le raccourci.
Enregistrez le nouveau gabarit. (Cliquez avec le bouton droit de la souris sur sa barre de titre et cliquez sur Enregistrer.)

Dans le code suivant, remplacez StencilWithShortcuts.vss par le nom de votre nouveau gabarit.

 
Public Sub MasterShortcuts_Example() 
  
    Dim vsoMasterShortcuts As Visio.MasterShortcuts  
    Dim vsoMasterShortcut As Visio.MasterShortcut  
    Dim vsoStencil As Visio.Document  
 
    'Get a stencil that contains some shortcuts.  
    Set vsoStencil = Application.Documents ("StencilWithShortcuts.vss ")  
    Set vsoMasterShortcuts = vsoStencil.MasterShortcuts 
  
    For Each vsoMasterShortcut In vsoMasterShortcuts 
  
        'Print some of the more common properties of a  
        'master shortcut to the Immediate window.  
        With vsoMasterShortcut  
            Debug.Print .AlignName  
            Debug.Print .DropActions  
            Debug.Print .IconSize  
            Debug.Print .ID  
            Debug.Print .Index  
            Debug.Print .Name  
            Debug.Print .NameU  
            Debug.Print .ObjectType  
            Debug.Print .Prompt  
            Debug.Print .ShapeHelp  
            Debug.Print .Stat  
            Debug.Print .TargetDocumentName 
  
            'Original master where shortcut points  
            Debug.Print.TargetMasterName  
 
        End With          
 
    Next  
 
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