Help

[Simon]

I am trying to make a box bigger on the click of the mouse
and then when you click it again it will decrease in
size. Can this be done simply? or does anyone know the
VB code to do this.

Thanks
Simon

 

[Echo S]

It's very easy in PPT 2002 (aka PPT XP) and 2003, but you didn't bother to
mention what version of PPT you're using.

 

[David M. Marcovitz]

You can probably do this most easily with trigger animations, but the
following VBA might be what you want. Assign the Action Settings for
your shape to either of the following macros. When you click on the
shape (in Slide Show mode), it will alternately get bigger (by a factor
of 1.5) and smaller by a factor of 1.5. Change the 1.5 in the procedures
to change the factor:

Sub Bigger(myShape As Shape)
myShape.Height = myShape.Height * 1.5
myShape.Width = myShape.Width * 1.5
myShape.ActionSettings(ppMouseClick).Run = "Smaller"

End Sub

Sub Smaller(myShape As Shape)
myShape.Height = myShape.Height / 1.5
myShape.Width = myShape.Width / 1.5
myShape.ActionSettings(ppMouseClick).Run = "Bigger"
End Sub


--
David M. Marcovitz, Ph.D.
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/