Propriété Document.Masters (Visio)

Article
04/07/2023

Renvoie la collection Masters pour le gabarit d’un document. En lecture seule.

Syntaxe

expression. Maîtres

Expression Variable qui représente un objet Document .

Valeur renvoyée

Masques

Remarques

Si votre solution Visual Studio inclut la référence Microsoft.Office.Interop.Visio , cette propriété correspond aux types suivants :

Microsoft.Office.Interop.Visio.IVDocument.Masters

Exemple

Ce programme Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la propriété Masters pour imprimer tous les noms de formes de base du document actif dans la fenêtre Exécution.

Avant d’exécuter cette macro, ouvrez un dessin Microsoft Visio et faites glisser au moins une forme à partir d’un gabarit vers la page de dessin.

 
Public Sub Masters_Example() 
  
    Dim intCounter As Integer 
    Dim intMasterCount As Integer 
    Dim vsoApplication As Visio.Application  
    Dim vsoCurrentDocument As Visio.Document  
    Dim vsoMasters As Visio.Masters 
 
    Set vsoApplication = GetObject(, "visio.application") 
  
    If vsoApplication Is Nothing Then 
        MsgBox "Microsoft Office Visio is not loaded" 
        Exit Sub   
 
    End If   
 
    Set vsoCurrentDocument = vsoApplication.ActiveDocument  
 
    If vsoCurrentDocument Is Nothing Then 
        MsgBox "No stencil is loaded" 
        Exit Sub   
 
    End If   
 
    Set vsoMasters = vsoCurrentDocument.Masters  
    Debug.Print "Masters in document : "; vsoCurrentDocument.Name  
    intMasterCount = vsoMasters.Count  
 
    If intMasterCount > 0 Then 
        For intCounter = 1 To intMasterCount  
            Debug.Print " "; vsoMasters.Item(intCounter).Name  
        Next intCounter  
    Else 
        Debug.Print " No masters in document"  
    End If   
 
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