Shape.Duplicate メソッド (Project)

図形を複製し、コピーへの参照を返します。

構文

式。重複

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

戻り値

図形

例

次の例では、 Shape.Apply メソッドのコード例によって作成されたレポートを使用します。 この例では、図形を複製し、回転し、水平方向に反転し、新しい図形を選択します。 新しい図形の水平オフセットと垂直オフセットはどちらも 12 ポイントです。

Sub DuplicateShape()
    Dim theReport As Report
    Dim shp1 As shape
    Dim duplicatedShape As shape
    Dim reportName As String
    
    reportName = "Apply Report"
    
    Set theReport = ActiveProject.Reports(reportName)
    Set shp1 = theReport.Shapes(1)
    
    Set duplicatedShape = shp1.Duplicate
    
    pos1 = shp1.left
    pos2 = duplicatedShape.left
    Debug.Print "Horizontal offset: " & CStr(pos2 - pos1)
    
    pos1 = shp1.top
    pos2 = duplicatedShape.top
    Debug.Print "Vertical offset: " & CStr(pos2 - pos1)
   
    duplicatedShape.Rotation = 30
    duplicatedShape.Flip msoFlipHorizontal
    
    duplicatedShape.Select
End Sub

関連項目

Shape オブジェクトShapeRange.Duplicate メソッド

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

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