Autoshape not accurate?

[tball]

I used the following subroutine to draw a rectangle on the screen. It should be anchored at 50,50 and be 50 wide by 50 tall but when I check it, its not. its achored at 49.8,49.8 and is 50.4 wide by 50.4 tall.

Does anyone else have this problem and if so is there an easy fix?

Thanks
tball


Sub drawTest()

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 50, 50, 50, 50).Select

MsgBox Selection.Top & "<>" & Selection.Height & "<>" & Selection.Left & "<>" & Selection.Width

End Sub