Help

[Simon]

I have used the following VB to make a box bigger.

With ActiveWindow.Selection.ShapeRange
.ScaleWidth 5.43, msoFalse, msoScaleFromTopLeft
.ScaleHeight 6.14, msoFalse,msoScaleFromBottomRight
End With
End Sub

Now I want to make the box gradually get bigger when I
click the button and then when I click the button again
the box will get smaller gradually.

Can anyone point me in the right direction?????
Thanks

 

[Dave Lett]

Hi Simon,

You can do something like the following:

If ActiveWindow.Selection.ShapeRange.Width = x Then ''x is some dimension
that you'll know
'''adjust scaleheight up
Else
'''adjust scaleheight down
End If

HTH,
Dave