高さが幅で、幅が高さ

Office2007の壁


Excel2007 で縦の直線を引いて、↓のマクロを実行してみました。

Sub Macro1()
　　Dim lineA As Shape

　　Set lineA = ActiveSheet.Shapes(1)
　　Debug.Print "◆◇◆　Macro1　◆◇◆"
　　Debug.Print "高さ：" & lineA.Height, "幅：" & lineA.Width
End Sub

Sub Macro2()
　　Dim lineA As Line

　　Set lineA = ActiveSheet.Lines(1)
　　Debug.Print "◆◇◆　Macro2　◆◇◆"
　　Debug.Print "高さ：" & lineA.Height, "幅：" & lineA.Width
End Sub

　
実行結果は以下のとおりです。
どう見ても、Height と Width が逆なんですけど…

◆◇◆　Macro1　◆◇◆
高さ：0.1250394　　　　　　 幅：36
◆◇◆　Macro2　◆◇◆
高さ：0.125039368867874　　 幅：36

　
横線だと大丈夫なんですけどね。