How to animate an image to move from the center of the screen?

[Guest]

I 'd like to animate 2 images from the center of the screen so that one moves
to the upper outer left corner and the other one moves to the lower outer
right corner of the screen. I know in ppt 2002 this can be easily done by
path animation but I can't find anything like that in ppt 2000. Can any body
help if there is a way of doing this in ppt 2000 as the compter we will be
using is downloaded with ppt 2000?
Thanks for your help in advance.
Dori

 

[Austin Myers]

PPT 2000 can't do this, use the 2003 PPT viewer instead.



Austin Myers
MS PowerPoint MVP Team

PowerPoint Video and PowerPoint Sound Solutions www.pfcmedia.com

 

[Guest]

Thanks Austin.
The problem with viewer is that the macros and some of the links do not
work. Is there a VBA code that can do the job in ppt 2000?
Thanks,
Dori

 

[Austin Myers]

Nothing pre-written I can think of. (Don't trust my thinking, the internet
is quite large.) But, if you wanted a macro to do this it would not be
terribly difficult to write. Start the PowerPoint VBA editor, open it's
help and search on "move", several examples of code are given.


Austin Myers
MS PowerPoint MVP Team

PowerPoint Video and PowerPoint Sound Solutions www.pfcmedia.com

 

[Guest]

Austin,
I followed your advice and came up with this macro:

Sub Macro2()
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
With ActiveWindow.Selection.ShapeRange
.IncrementLeft -303.88
.IncrementTop -212.12
End With
End Sub

Then, I applied the macro to the text box in the action setting. In show
mode, when I click on the text box, it only change in color but it does not
move.
What am I doing wrong?
Can any body help?
Dori

 

[Steve Rindsberg]

Have a look here for more info:
Macros I record in Normal/Slide view don't work in Slide Show
http://www.rdpslides.com/pptfaq/FAQ00159.htm

Short version: since you can't select anything in slide show view, macros that
start by selecting something ... you guessed it! ... won't work in slide show
view.

This will get you started. First, prepare by selecting the shape you want to
work with and give it a name:

Sub NameTheShapeFirst()
With ActiveWindow.Selection.ShapeRange(1)
.Name = "MisterWiggly"
' or whatever makes sense to you
End With
End Sub

Then modify the macro you run during the show to use the named shape:

Sub Macro2()
With ActiveWindow.Selection.SlideRange.Shapes("MisterWiggly")
.IncrementLeft -303.88
.IncrementTop -212.12
End With
End Sub