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 集合。 它會在 [即時運算] 視窗中列印第 1 頁上所有圖形的名稱。

若要執行這個巨集，請確定使用中的文件具有第 1 頁上的圖形。

 
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 支援與意見反應。