Sub 図形コピーテスト() '現在選択されている図形を複製し、真下に位置させる
    With Selection
        Dim t, h, l
        '現在の選択図形の位置・高さを保存
        t = .ShapeRange.Top
        l = .ShapeRange.Left
        h = .ShapeRange.Height
        'コピーし、貼付け（この時点で選択が貼付け図形に切り替わる）
        .Copy
        .Paste
        '貼付け図形の上端と左端の座標を先の図形の真下に来るように指定
        .ShapeRange.Top = t + h
        .ShapeRange.Left = l
     End With
End Sub