Shapes.AddShape 方法 (Publisher)

將代表快取圖案的新 Shape 物件加入至指定 的 Shapes 集合。

語法

運算式。AddShape (Type、 Left、 Top、 Width、 Height)

expression 代表 Shapes 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Type	必要	MsoAutoShapeType	要繪製的快取圖案類型。
Left	必要	Variant	代表快取圖案之圖案的左邊緣位置。
Top	必要	Variant	代表快取圖案之圖案的上緣位置。
Width	必要	Variant	代表快取圖案之圖案的寬度。
Height	必要	Variant	代表快取圖案之圖案的高度。

傳回值

圖形

註解

對於 Left、 Top、 Width和 Height 引數，數值會以 點為單位進行評估;字串可以是 Microsoft Publisher (支援的任何單位，例如「2.5 in」) 。

範例

下列範例會新增矩形到使用中出版物的首頁。

Dim shpShape As Shape 
 
Set shpShape = ActiveDocument.Pages(1).Shapes.AddShape _ 
 (Type:=msoShapeRectangle, _ 
 Left:=144, Top:=144, _ 
 Width:=72, Height:=144) 

支援和意見反應

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