次の方法で共有

ShapeRange.Duplicate メソッド (Publisher)

  • [アーティクル]

指定した Shape オブジェクトまたは ShapeRange オブジェクトの複製を作成し、最初に指定した図形または図形の範囲の直後に新しい図形または図形の範囲を Shapes コレクションに追加し、新しい Shape オブジェクトまたは ShapeRange オブジェクトを返します。

構文

式。重複

式ShapeRange オブジェクトを表す変数。

戻り値

ShapeRange

例

次の使用例は、作業中の文書の末尾に新しい空白のページを追加し、そのページにダイヤ型の図形を追加して、そのダイヤ型を複製し、複製のプロパティを設定します。 最初のダイヤ型は、アクティブな配色の既定の塗りつぶしの色で塗りつぶされ、2 番目のダイヤ型は、最初のダイヤ型からオフセットされ、アクティブな配色の最初の強調色で塗りつぶされます。

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 のサポートおよびフィードバックを参照してください。