Shapes

[K J Boland]

Hi there,

2 questions in 1, regarding moving shapes around.

1. The simpler question is
within this macro how would you get the screen to show the movement of the
shape as it goes down the screen?


Sub MoveItInSlideShow()

For i = 1 To 100
With SlideShowWindows(1).Presentation.Slides(1).Shapes("Rule 1.01")
..IncrementTop 0.75

End With
Next i

End Sub


2. How could I invoke this macro by first moving another shape and then
clicking the left or right mouse button. In simple terms moving a funnel
sideways and then releasing a shape, and watch it fall to the floor.

(I actually want to have a slide to represent "Deming's Funnel Experiment"
if any of you know that)


many thanks in advance.

 

[David M. Marcovitz]

Is there a reason you want to do this with macros? If you are using
PowerPoint 2002 or above, this is much easier with normal animations
(using triggers).

If this procedure isn't showing the movement, you might want to add a
delay between each movement. I suspect that it is happening too fast too
see.

--David

--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

 

[Guest]

To see the macro move the shape add a DoEvents after the End With

But as DM says this is much easier with motion paths and triggers
--
Did that answer the question / help?
___________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html
email john AT technologytrish.co.uk

 

[K J Boland]

thanks both.

Can you guide me as to where to see triggers ?

Many thanks


kim

 

[Jean-Pierre FORESTIER]

Double click on the animation. In the Effect windows, at the bottom, y'll
see the triggers possibilities