返回在 Microsoft Visio 模具窗口中选择的主控形状或主控形状快捷方式的数组。 此为只读属性。
语法
expression。 SelectedMasters
表达 一个代表 Window 对象的变量。
返回值
对象 ()
备注
SelectedMasters 属性仅适用于模具窗口。 如果尝试访问其他类型的窗口的 SelectedMasters 属性，Visio 可能会返回错误。
示例
此Microsoft Visual Basic for Applications (VBA) 宏使用 SelectedMasters 属性获取模具窗口中选择的主控形状和主控快捷方式的数量，然后在“即时”窗口中打印模具的名称以及选定的主控形状和主控快捷方式。
运行此宏之前，请确保在活动 Visio 窗口的固定模具中至少选择了一个主控形状或主控形状快捷方式。
Sub SelectedMasters_Example()
Dim vsoWindow As Visio.Window
Dim aobjSelectedMasters() As Object
Dim intNumberMasters As Integer
Dim intNumberMasterShortCuts As Integer
Dim vsoMaster As Visio.Master
Dim vsoMasterShortcut As Visio.MasterShortcut
intNumberMaster = 0
intNumberMasterShortCuts = 0
For Each vsoWindow In ActiveWindow.Windows
If (vsoWindow.Type = visDockedStencilBuiltIn) Then
aobjSelectedMasters = vsoWindow.SelectedMasters
For intCounter = LBound(aobjSelectedMasters) To UBound(aobjSelectedMasters)
On Error Resume Next
Set vsoMaster = Nothing
Set vsoMasterShortcut = Nothing
Set vsoMaster = aobjSelectedMasters(intCounter)
If Not vsoMaster Is Nothing Then
intNumberMasters = intNumberMasters + 1
Else
Set vsoMasterShortcut = aobjSelectedMasters(intCounter)
If Not vsoMasterShortcut Is Nothing Then
intNumberMasterShortCuts = intNumberMasterShortCuts + 1
End If
End If
Next
If (intNumberMasters > 0 Or intNumberMasterShortCuts > 0) Then
Debug.Print "The stencil " & vsoWindow.Document.Name
Debug.Print "has" & Str(intNumberMasters) & " masters selected and "
Debug.Print Str(intNumberMasterShortCuts) & " master shortcuts selected."
Exit For
End If
End If
Next
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。