ShapeRange.Duplicate メソッド (Word)

指定した ShapeRange オブジェクトの複製を作成、元の図形から標準的なオフセットを Shapes コレクションに新しい範囲の図形を追加し、 Shape オブジェクトを返します。

構文

重複

expression 必須です。 ShapeRange オブジェクトを表す変数を指定します。

次の使用例は、作業中の文書の 1 番目の図形の複製を作成し、新しい図形の塗りつぶしを変更します。

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

関連項目

ShapeRange コレクション オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。