Bug in X5 getting size

[runflacruiser]

Hi.
See simple code and test file. Use on both sets of ungrouped shapes. Large amount of shapes changes results.

-John

Sub bugHmmm1()

    MsgBox ActiveShape.SizeHeight
    
End Sub

Sub bugHmmm2()
    Dim x#, y#, w#, h#
    Dim s As Shape
    Set s = ActiveShape
    s.GetBoundingBox x, y, w, h
    MsgBox h
End Sub

[ager]

I can confirm this bug for X4 version. This code works right:

Sub bugHmmm1()

   MsgBox ActiveSelectionRange.SizeHeight
    
End Sub

Sub bugHmmm2()
    Dim x#, y#, w#, h#
    Dim s As ShapeRange
   Set s = ActiveSelectionRange
    s.GetBoundingBox x, y, w, h
    MsgBox h
End Sub

[runflacruiser]

Hi.
Thanks,

I guess your supposed to use ActiveSelection if you know there might more than 1 shapes but I just thought it was weird.

-John