同じ場所なのに、違う位置?


Excel2007 で、開始位置が同じである縦線と横線を引いてから、↓のマクロを実行してみました。

Sub Macro1()
  Dim lineA(1 To 2) As Shape

  Set lineA(1) = ActiveSheet.Shapes(1)
  Set lineA(2) = ActiveSheet.Shapes(2)
  Debug.Print "◆◇◆ Macro1 ◆◇◆"
  Debug.Print "上:" & Range("C3").Top, "左:" & Range("C3").Left
  Debug.Print lineA(1).Name
  Debug.Print "上:" & lineA(1).Top, "左:" & lineA(1).Left
  Debug.Print lineA(2).Name
  Debug.Print "上:" & lineA(2).Top, "左:" & lineA(2).Left
End Sub

 
実行結果は以下のとおりです。
縦線の方がトンでもない位置を示しています。

◆◇◆ Macro1 ◆◇◆
上:24    左:96
直線コネクタ 12
上:42    左:78
直線コネクタ 14
上:24    左:96

 
Shape オブジェクトではなく、Line オブジェクトにしても同じ結果になります。
 
どうも、縦線ってのはダメダメのようです。