Was this page helpful?
Your feedback about this content is important. Let us know what you think.
Additional feedback?
1500 characters remaining
Export (0) Print
Expand All
Expand Minimize

Document.Masters Property

Office 2007
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



Community Additions

ADD
Show:
© 2015 Microsoft