Window.SelectedMasters プロパティ (Visio)

Microsoft Visio ステンシル ウィンドウで選択されているマスター シェイプまたはマスター ショートカットの配列を返します。 読み取り専用です。

構文

式。 SelectedMasters

式Window オブジェクトを表す変数。

戻り値

Object()

注釈

SelectedMasters プロパティはステンシル ウィンドウにのみ適用されます。 他の種類のウィンドウの SelectedMasters プロパティにアクセスしようとすると、Visio からエラーが返される可能性があります。

例

この Microsoft Visual Basic for Applications (VBA) マクロは SelectedMasters プロパティを使用して、ステンシル ウィンドウで選択されているマスターとマスター ショートカットの数を取得し、ステンシルの名前と選択したマスターとマスター ショートカットをイミディエイト ウィンドウに印刷します。

このマクロを実行する前に、アクティブな Visio ウィンドウで固定表示されているステンシル内で、マスターまたはマスター ショートカットが少なくとも 1 つ選択されていることを確認してください。

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 のサポートおよびフィードバックを参照してください。