ShapeRange.Duplicate メソッド (Project)

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

構文

式。重複

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

戻り値

ShapeRange

注釈

複製された図形範囲の水平オフセットと垂直オフセットは、どちらも元の図形範囲から 12 ポイントです。

例

次の例では、 ShapeRange.Apply メソッドのコード例によって作成されたレポートを使用します。 この例では、2 つの図形を含む図形範囲を複製し、垂直方向に反転して新しい図形範囲を選択します。

Sub DuplicateShapeRange()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim shp3 As shape
    Dim reportName As String
    Dim sRange1 As ShapeRange
    Dim sRange2 As ShapeRange
    
    reportName = "Apply Report"
    
    Set theReport = ActiveProject.Reports(reportName)
    Set shp1 = theReport.Shapes(1)
    Set shp2 = theReport.Shapes(2)
    Set shp3 = theReport.Shapes(3)
    
    Set sRange1 = theReport.Shapes.Range(Array(2, 3))
    
    Set sRange2 = sRange1.Duplicate()
    
    sRange2.Flip msoFlipVertical
    sRange2.Select
End Sub

関連項目

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

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

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