ShapeRange.Duplicate 方法 (Word)

會建立指定之 ShapeRange 物件的複本、 原始圖案，加入 Shapes 集合的標準位移將新圖案範圍，然後傳回 Shape 物件。

語法

運算式。重複

需要 expression。 代表 ShapeRange 物件的變數。

範例

本範例會建立使用中文件裡第一個圖案的複本，然後變更新圖案的填滿設定。

Set newShape = ActiveDocument.Shapes(1).Duplicate 
With newShape 
 .Fill.PresetGradient msoGradientVertical, 1, msoGradientGold 
End With

另請參閱

ShapeRange 集合物件

支援和意見反應

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