Shape 物件 (Excel)

  • 發行項

代表繪圖圖層中的物件，例如快取圖案、手繪多邊形、OLE 物件或圖片。

備註

Shape 物件屬於 Shape 集合。 Shape 集合包含活頁簿中的所有圖案。

注意事項

有三個物件代表圖案：代表活頁簿上所有圖案 的 Shapes 集合; ShapeRange 集合，代表活頁簿上指定的圖案子集 (例如， ShapeRange 物件可以代表活頁簿中的第一個和第四個圖案，也可以代表活頁簿中所有選取的圖案) ;和 Shape 物件，代表工作表上的單一圖案。 如果您想要同時使用多個圖案，或是使用選取範圍內的圖案，請使用 ShapeRange 集合。

要傳回... 使用。。。
Shape物件，表示連接器所連接的其中一個圖形 ConnectorFormat物件的 BeginConnectedShape或EndConnectedShape屬性。
新建立的手繪多邊形 BuildFreeform和AddNodes方法可定義新手繪多邊形的幾何，並使用ConvertToShape方法來建立手繪多邊形，並傳回代表它的Shape物件。
代表群組圖形中單一圖案的 Shape 物件 GroupItems (索 引) ，其中 index 是圖形名稱或群組內的索引編號。
新形成的圖形群組 ShapeRange物件的Group或Regroup方法，可將圖案範圍分組，並傳回代表新形成之群組的單一Shape物件。 組成群組之後，您可以使用群組的方式與使用任何其他圖形的方式相同。
代表現有圖形的 Shape 物件 圖形 (索 引) ，其中 index 是圖形名稱或索引編號。
代表選取範圍內之圖案的 Shape 物件 選取範圍。ShapeRange (索 引) ，其中 index 是圖形名稱或索引編號。

範例

下列範例會水平翻轉 myDocument 上的第一個圖案以及名稱為 Rectangle 1 的圖案。

Set myDocument = Worksheets(1) 
myDocument.Shapes(1).Flip msoFlipHorizontal 
myDocument.Shapes("Rectangle 1").Flip msoFlipHorizontal

在 Shapes 集合中新增每一個圖案時，都會為它指定預設名稱。 若要指定更有意義的名稱，請使用 Name 屬性。 下列範例會將矩形新增至 myDocument、將名稱命名為 Red Square，然後設定其前景色彩和線條樣式。

Set myDocument = Worksheets(1) 
With myDocument.Shapes.AddShape(msoShapeRectangle, _ 
 144, 144, 72, 72) 
 .Name = "Red Square" 
 .Fill.ForeColor.RGB = RGB(255, 0, 0) 
 .Line.DashStyle = msoLineDashDot 
End With

下面範例假設在使用中視窗中，選取範圍中的第一張圖形是在選取範圍中的至少一個圖案設定填滿格式。

ActiveWindow.Selection.ShapeRange(1).Fill.ForeColor.RGB = _ 
 RGB(255, 0, 0)

方法

屬性

另請參閱

支援和意見反應

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