Topプロパティでセル上端の座標を取得する
■書式：オブジェクト.Top ■以下の様に固定的に座標を取得していたとします。 Set shp = ActiveSheet.Shapes.AddLine(200, 50, 500, 50) ■Topプロパティによって座標を取得したコードに変更(セルの上端に矢印線が引かれる） Set shp = ActiveSheet.Shapes.AddLine(200, Range("C3").Top, 500, Range("C3").Top) ■中央付近に…
