Document.MasterShortcuts プロパティ (Visio)

  • [アーティクル]

図面ステンシルの MasterShortcuts コレクションを返します。 読み取り専用です。

構文

式。MasterShortcuts

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

戻り値

MasterShortcuts

例

この VBA (Microsoft Visual Basic for Applications) マクロは、MasterShortcuts プロパティを使用して、図面ステンシル内にあるマスター ショートカットのコレクションを取得する方法を示します。

この例を実行する前に、 StencilWithShortcuts.vss への参照を、マスター ショートカットを含む有効な .vss ファイルへの参照に置き換えます。

マスター ショートカットを含むステンシルを作成するには

  1. 既存のステンシルを開きます ([図形] ウィンドウで、[その他の図形] をクリックし、[ステンシルを開く] をクリックします。 次にステンシルをダブルクリックします)。

  2. ステンシルに含まれるマスター シェイプを右クリックし、[コピー] をクリックします。

  3. 新しいステンシルを作成します。 ([ 図形 ] ウィンドウで、[ その他の図形] をクリックし、[ 新しいステンシル (米国単位)] または [ 新しいステンシル (メトリック)] をクリックします)。

  4. 新しいステンシルを右クリックして、[ショートカットの貼り付け] をクリックします。

  5. 新しいステンシルを保存します。 (タイトル バーを右クリックし、[ 保存] をクリックします)。

次のコードでは、 StencilWithShortcuts.vss を新しいステンシルの名前に置き換えます。

 
Public Sub MasterShortcuts_Example() 
  
    Dim vsoMasterShortcuts As Visio.MasterShortcuts  
    Dim vsoMasterShortcut As Visio.MasterShortcut  
    Dim vsoStencil As Visio.Document  
 
    'Get a stencil that contains some shortcuts.  
    Set vsoStencil = Application.Documents ("StencilWithShortcuts.vss ")  
    Set vsoMasterShortcuts = vsoStencil.MasterShortcuts 
  
    For Each vsoMasterShortcut In vsoMasterShortcuts 
  
        'Print some of the more common properties of a  
        'master shortcut to the Immediate window.  
        With vsoMasterShortcut  
            Debug.Print .AlignName  
            Debug.Print .DropActions  
            Debug.Print .IconSize  
            Debug.Print .ID  
            Debug.Print .Index  
            Debug.Print .Name  
            Debug.Print .NameU  
            Debug.Print .ObjectType  
            Debug.Print .Prompt  
            Debug.Print .ShapeHelp  
            Debug.Print .Stat  
            Debug.Print .TargetDocumentName 
  
            'Original master where shortcut points  
            Debug.Print.TargetMasterName  
 
        End With          
 
    Next  
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。