Publisher) (Shape.AddShape 方法

將代表 AutoShape 的新 Shape 物件新增至指定的 Shapes 集合中。

語法

運算式。AddShape (類型、 左、 頂端、 寬度、 高度)

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

  • 上次更新時間：