次の方法で共有


Page.Shapes プロパティ (Visio)

ページ、マスター シェイプ、またはグループの Shapes コレクションを返します。 読み取り専用です。

構文

図形

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

戻り値

図形

注釈

Visual Studio ソリューションに Microsoft.Office.Interop.Visio リファレンスが含まれている場合、このプロパティは次の種類にマップされます。

  • Microsoft.Office.Interop.Visio.IVPage.Shapes

この VBA (Microsoft Visual Basic for Applications) マクロは、Shapes プロパティを使用して Shapes コレクションを取得する方法を示します。 イミディエイト ウィンドウの Page1 に、すべての図形の名前を出力します。

このマクロを実行するには、アクティブな図面の Page1 に図形が配置されている必要があります。

 
Public Sub Shapes_Example()  
 
    Dim intCounter As Integer 
    Dim intShapeCount As Integer 
    Dim vsoShapes As Visio.Shapes  
 
    Set vsoShapes = ActiveDocument.Pages.Item(1).Shapes  
 
    Debug.Print "Shapes in document: "; ActiveDocument.Name 
    Debug.Print "On page: "; ActiveDocument.Pages.Item(1).Name  
 
    intShapeCount = vsoShapes.Count  
 
    If intShapeCount > 0 Then 
        For intCounter = 1 To intShapeCount  
            Debug.Print " "; vsoShapes.Item(intCounter).Name  
        Next intCounter 
  
    Else 
        Debug.Print "No Shapes On Page"  
    End If   
 
End Sub

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

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