Master.Shapes プロパティ (Visio)

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

構文

式。図形

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

戻り値

図形

例

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