線が乗るセル

Office2007の壁

Excel2007 で、枠線に合わせて縦線と横線を引いてから、↓のマクロを実行してみました。

Sub Macro1()
　　Dim lineV As Shape ' 縦線
　　Dim lineH As Shape ' 横線

　　Set lineV = ActiveSheet.Shapes(1)
　　Set lineH = ActiveSheet.Shapes(2)
　　Debug.Print "◆◇◆　Macro1　◆◇◆"
　　Debug.Print lineV.Name
　　Debug.Print lineV.TopLeftCell.Address _
　　　　　　　, lineV.BottomRightCell.Address
　　Debug.Print lineH.Name
　　Debug.Print lineH.TopLeftCell.Address _
　　　　　　　, lineH.BottomRightCell.Address
End Sub

　
実行結果は以下のとおりです。
一見、不思議なところは何もないように思えます。
いや、よくよく考えると、縦線と横線の考え方の整合性がとれていません。

◆◇◆　Macro1　◆◇◆
直線コネクタ 2
$B$3　　　　　$C$6
直線コネクタ 4
$D$3　　　　　$F$3

　
念のため、同じことを Excel2002 でやってみると…

◆◇◆　Macro1　◆◇◆
Line 1
$C$3　　　　　$C$6
Line 2
$D$3　　　　　$F$3

　
Name プロパティで取得されるものが違うのはどうでもいいのですが、やはり Excel2007 での縦線がややおかしいようです。
前回、前々回にとりあげた Top,Left や Height,Width に比べれば、かわいい違いですけど。
　
P.S.
枠線に合わせて図形を配置するには Alt キーを押しながらやるのが楽チンです。