同じ場所なのに、違う位置?
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 オブジェクトにしても同じ結果になります。
どうも、縦線ってのはダメダメのようです。