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