Share via

Document.Masters Property

Visio Automation Reference

Returns the Masters collection for a document's stencil. Read-only.

Version Information
 Version Added:  Visio 2.0

Syntax

expression.Masters

expression   A variable that represents a Document object.

Return Value
Masters

Example

This Microsoft Visual Basic for Applications (VBA) program shows how to use the Masters property to print all the master shape names in the current document to the Immediate window.

Before running this macro, open a Microsoft Office Visio drawing and drag at least one shape from a stencil onto to the drawing page.

Visual Basic for Applications 
  
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

See Also

  • Last updated on