changing size of autoshape

Trying to do some basic animation with an autoshape. I have a rectangle that I am changing the size in steps. The problem is, it resizes the bottom edge of the rectangle up instead of moving the top edge of the rectangle down.

here is my code:

For j = 1 To 200
rectheight = rectheight - 0.5
ActiveSheet.Shapes("Rectangle 1").Height = rectheight
For i = 1 To 100
DoEvents
Next i
Next j

How do I tell VBA to resize my rectangle from the top down?