共用方式為

Publisher (的 Shapes 物件)

  • 發行項

代表出版物的頁面上的所有圖案的 Shape 物件的集合。 每個 Shape 物件都代表繪圖圖層，例如快取圖案、 手繪多邊形中的物件、 OLE 物件或圖片。

注意事項

如果您想要處理檔上圖案的子集，例如，若要只對檔上的快取圖案或只對選取的圖案執行某些動作，您必須建構包含您要使用之圖案的 ShapeRange 集合。

註解

使用 Page.Shapes 屬性可傳回 Shapes 集合。 使用 Shapes (index) ， 其中 index 是索引編號，可傳回單一 Shape 物件。

注意事項

如果您想要執行一些 (，例如同時刪除或設定) 出版物中所有圖案的屬性，請使用Range方法來建立包含Shapes集合中所有圖案的ShapeRange物件，然後將適當的屬性或方法套用至ShapeRange物件。

使用 Shapes 集合的下列其中一種方法，將圖案新增至出版物，並傳回代表新建立之圖案的 Shape 物件：

範例

下列範例會選取使用中出版物第一頁上的所有圖案。

Sub SelectAllShapes() 
    ActiveDocument.Pages(1).Shapes.SelectAll 
End Sub

下列範例會將一個新的圖案新增至使用中出版物。

Sub AddNewShape() 
    ActiveDocument.Pages(1).Shapes.AddShape Type:=msoShapeFoldedCorner, _ 
        Left:=50, Top:=50, Width:=100, Height:=200 
End Sub

下列範例會水平翻轉使用中出版物第一頁上的第一個圖案。

Sub FlipShape() 
    ActiveDocument.Pages(1).Shapes(1).Flip FlipCmd:=msoFlipHorizontal 
End Sub

方法

屬性

另請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。