Word) (Shapes 物件
一組 圖案 代表文件中的所有圖案或所有的標頭中的所有圖案及頁尾的文件中的物件。 每個 Shape 物件都代表繪圖圖層,例如快取圖案、 手繪多邊形中的物件、 OLE 物件或圖片。
如果您想要使用文件上的圖案的子集 例如,只在文件快取圖案或選取的圖形 必須建構 ShapeRange 包含您想要使用的 shapes 集合。
使用 圖形 若要傳回的 Shapes 集合的屬性。 下列範例會選取使用中文件上的所有圖案。
ActiveDocument.Shapes.SelectAll
注意
[!注意事項] 如果您想要執行的某個項目 (如刪除或設定屬性),同時文件上的所有圖案,使用 範圍 方法以建立包含的 Shapes 集合中的所有圖案的 ShapeRange 物件,然後套用適當的屬性或方法對 ShapeRange 物件。
使用 Shapes 集合的下列其中一種方法: Add3DModel、 AddCallout、 AddCurve、 AddLabel、 AddLine、 AddOleControl、 AddOleObject、 AddPolyline、 AddShape、 AddTextbox、 AddTextEffect或 BuildFreeForm ,將圖案新增至檔會傳回代表新建立之圖案的 Shape 物件。 下列範例將矩形新增至使用中文件。
ActiveDocument.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200
使用 Shapes (Index) 可傳回一個 Shape 物件,其中 Index 是名稱或索引編號。 以下範例會水平翻轉現用文件中的圖案一。
ActiveDocument.Shapes(1).Flip msoFlipHorizontal
本範例會水平翻轉使用中文件內名為 "Rectangle 1" 的圖案。
ActiveDocument.Shapes("Rectangle 1").Flip msoFlipHorizontal
每個圖案在建立時都會指定一個預設名稱。 例如,如果您將三個不同的圖案新增至檔,它們可能會命名為 「Rectangle 2」、「TextBox 3」 和 「Oval 4」。若要為圖形提供更有意義的名稱,請設定 Name 屬性。
的 Shapes 集合中不含 InlineShape 物件。 InlineShape 物件被視為字元而且會當做文字行內的字元。 錨定文字範圍,但會浮動及放置在頁面上任何一處的 shape 物件。 使用 ConvertToInlineShape 方法和 ConvertToShape 方法,將圖形從一個類型轉換成另一個類型。 您可以將圖片、 OLE 物件、 以及 ActiveX 控制項轉換成內置圖案。
在文件中此集合的 Count 屬性會傳回主要本文中的項目數。 若要計算中所有的頁首與頁尾的圖形,使用 Shapes 集合與任何 HeaderFooter 物件。
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。