Masters Property [Visio 2003 SDK Documentation]

  • Article

Returns the Masters collection for a document's stencil.

objsRet = object**.Masters**

objsRet     The Masters collection for a document.

object     Required. An expression that returns a Document object.

Version added

2.0

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.

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

Applies to | Document object

See Also | Masters collection