Shape.Duplicate メソッド (Visio)

オブジェクトを複製します。

構文

式。重複

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

戻り値

Shape

注釈

Duplicate メソッドは、指定されたオブジェクトまたは選択項目を複製して、元のページと同じページにコピーを追加します。 Duplicate メソッドを使用することは、[ホーム] タブで [貼り付け] メニューの [複製] をクリックするのと同じになります。

Duplicate メソッドを Shape オブジェクトと共に使用すると、図形が複製されます。

Duplicate メソッドを Selection オブジェクトと共に使用すると、選択項目が複製されます。

例

次の例は、Shape オブジェクトを複製する方法を示します。 このコードは、Selection オブジェクトにも使用できます。

このマクロを実行する前に、Microsoft Visio ウィンドウで図面ページがアクティブであることを確認してください。

 
Public Sub Duplicate_Example() 
 
 Dim vsoOriginalShape As Visio.Shape 
 Dim vsoDuplicateShape As Visio.Shape 
 
 Set vsoOriginalShape = ActivePage.DrawLine(1, 1, 5, 5) 
 
 Set vsoDuplicateShape = vsoOriginalShape.Duplicate 
 vsoDuplicateShape.Cells("BeginY") = "2" 
 
End Sub

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

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