In saying that, you may be able to find an animated GIF file online which actually does what you want. You can copy some of them dircetly from online, and whilst it won't appear to spin in 'Normal View' on Powerpoint, when you switch it to Slide Show view it'll spin as it appears to online.
Newer versions of PP give you some really amazing effects to choose from in custom animations, but I dont believe if memory serves you can do what you are asking in your version.
I agree with the suggestion to find an animated gif. There are plenty online with good samples, just watch the copyright and usage terms.
Good luck with it,
Kimber
Before you post a question, use the search features of the site to see if your issue was previously addressed in a thread or FAQ.
For the best answers, post as many specific details as possible. Our answers are based on the information provided.
Mark I have a lot of resources for animated gifs.
If you tell me exactly what you are looking for I may be able to help you find it.
Kimber
Before you post a question, use the search features of the site to see if your issue was previously addressed in a thread or FAQ.
For the best answers, post as many specific details as possible. Our answers are based on the information provided.
Before you post a question, use the search features of the site to see if your issue was previously addressed in a thread or FAQ.
For the best answers, post as many specific details as possible. Our answers are based on the information provided.
Came across this online somewhere, I don't know if it will work in 2000 or not. Hit Alt+F11 to open Visual Basic editor. Click "Insert" then "Add Module". Put this code in side of the module. You can change shapes and effects by changing the msoShapeRectangle and msoAnimEffectPathZigzag, try msoAnimEffectSpin.
Sub CreateAnimationWithTrigger()
Dim oEffect As Effect
Dim oShpA As Shape
Dim oShpB As Shape
With ActivePresentation.Slides(1)
'Create two autoshapes on the slide.
Set oShpA = .Shapes.AddShape(msoShapeLightningBolt, 100, 100, 50, 50)
Set oShpB = .Shapes.AddShape(msoShapeRectangle, 200, 100, 50, 50)
' Assign an interactive animation to shape A
Set oEffect = .TimeLine.InteractiveSequences.Add _
.AddEffect(Shape:=oShpA, effectId:=msoAnimEffectPathZigzag, _
trigger:=msoAnimTriggerOnShapeClick)
End With
' Define the triggering shape. If you omit this line then the animation will be
' triggered by clicking on the shape A itself.
oEffect.Timing.TriggerShape = oShpB
End Sub
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.