Publisher) (Shape.Duplicate 方法

建立指定 Shape 或 ShapeRange 物件的複本，將新圖案或圖案範圍緊接在原先指定的圖案或圖形範圍之後的圖案集合中，然後傳回新的 Shape 或 ShapeRange 物件。

語法

運算式。[同步顯示]

expression 一個用於表示 Shape 物件的變數。

傳回值

圖形

範例

本範例在使用中出版物的結尾新增一個空白的新頁，在新頁上新增一個菱形，複製此菱形，然後為副本設定屬性。 第一個菱形採用使用中色彩配置的預設填滿色彩；第二個菱形偏離第一個菱形，並採用使用中色彩配置的第一個強調文字色彩。

Dim pgTemp As Page 
Dim shpTemp As Shape 
 
Set pgTemp = ActiveDocument.Pages.Add(Count:=1, After:=1) 
Set shpTemp = pgTemp.Shapes _ 
 .AddShape(Type:=msoShapeDiamond, _ 
 Left:=10, Top:=10, Width:=250, Height:=350) 
 
With shpTemp.Duplicate 
 .Left = 150 
 .Fill.ForeColor.SchemeColor = pbSchemeColorAccent1 
End With

支援和意見反應

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