Свойство Window.SelectedMasters (Visio)

Возвращает массив основных или master сочетаний клавиш, выбранных в окне набора элементов Microsoft Visio. Только для чтения.

Синтаксис

выражение. SelectedMasters

выражение Переменная, представляющая объект Window .

Возвращаемое значение

Object()

Замечания

Свойство SelectedMasters применяется только к окнам набора элементов. Если вы попытаетесь получить доступ к свойству SelectedMasters для других типов окна, Visio может вернуть ошибку.

Пример

Этот макрос Microsoft Visual Basic для приложений (VBA) использует свойство SelectedMasters для получения количества образцов и master сочетаний клавиш, выбранных в окне набора элементов, а затем выводит имя набора элементов, выбранные образцы и master ярлыки в окне Интерпретация.

Перед выполнением этого макроса убедитесь, что в закрепленном наборе элементов в активном окне Visio выбран по крайней мере один master или master ярлык.

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 и обратная связь.