« AndroidでのPCページ表示時の... Main

VBA:図形を真下にコピー

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

Leave a comment

Your comment