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