Shape.Duplicate 方法 (Publisher)

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

語法

運算式。重複

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