共用方式為

Visio (的 Master.Shapes 屬性)

  • 發行項

傳回頁面、主圖形或群組的 Shapes 集合。 唯讀。

語法

運算式。形狀

表達 代表 Master 物件的變數。

傳回值

圖案

範例

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