通过

Page.Shapes 属性 (Visio)

  • 项目

返回页面、主控形状或组的 Shapes 集合。 此为只读属性。

语法

表达式。形状

表达 一个代表 Page 对象的变量。

返回值

形状

备注

如果 Visual Studio 解决方案包含 Microsoft.Office.Interop.Visio 引用，则此属性映射到以下类型：

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

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何使用 Shapes 属性获取 Shapes 集合。 该宏在“立即”窗口中打印第一页上所有形状的名称。

要运行此宏，请确保活动文档在第一页上有形状。

 
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 支持和反馈，获取有关如何接收支持和提供反馈的指南。