■書式:オブジェクト.Top
■以下の様に固定的に座標を取得していたとします。
Set shp = ActiveSheet.Shapes.AddLine(200, 50, 500, 50)
■Topプロパティによって座標を取得したコードに変更(セルの上端に矢印線が引かれる)
Set shp = ActiveSheet.Shapes.AddLine(200, Range("C3").Top, 500, Range("C3").Top)
■中央付近に線を引くため、Y座標の値を増やして下方向に調整する。(12ポイント足す)
Set shp = ActiveSheet.Shapes.AddLine(200, Range("C3").Top + 12, 500, Range("C3").Top + 12)