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