Visio) (Window.SelectedMasters 屬性

會傳回在 Microsoft Visio 樣板視窗中所選取的主圖形或主圖形捷徑的陣列。 唯讀。

語法

expression。 SelectedMasters

表達 代表 Window 物件的變數。

傳回值

Object ()

註解

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 支援與意見反應。