指定したオブジェクトをセルカーソールの位置に移動する
挿入→図形から長方形を挿入し行の高さに合わせた半透明の長方形を作成し分かりやすいオブジェクト名にします
Public Sub オブジェクトの移動()
column1 = ActiveCell.Column
row1 = ActiveCell.Row
ActiveSheet.Shapes.Range(Array("作成したオブジェクト名")).Select
Selection.ShapeRange.Left = Cells(row1, column1).Left
Selection.ShapeRange.Top = Cells(row1, column1).Top
Cells(row1, column1).Select
End Sub
クイックアクセスツールバー、リボン、コマンドボタンにマクロを登録するか
Private Sub Worksheet_SelectionChange(ByVal Target As Range)に記述して使用します
目次へ