We help IT Professionals succeed at work.

Rotate picture during powerpoint 2003 presentation

thenelson
thenelson asked
on
Medium Priority
578 Views
Last Modified: 2012-05-12
I would like to rotate a picture during a Powerpoint 2003 presentation.  Much like grabbing the rotate handle in normal view except I would like to rotate the picture during the slide show while running the presentation.   I know I can create a spin animation and trigger the spin to clicking a button but that creates a spin of a set amount from 0 degrees and each time I click the button, the picture snaps back to 0 degrees and then spins the set amount.  Ideally I would like to just grab the picture with my mouse and rotate/spin it to the angle I want; then rotate/spin it to another angle.  Another option would be to use buttons to rotate/spin the picture using a macro when buttons are clicked but the rotation/spin should be cumulative (rotate/spin  to 23 degrees, then to 24 degrees, then to 11 degrees, etc).
Comment
Watch Question

Commented:
Set up a few animations that rotate it by the increments you want, and set them all to "on click".
CERTIFIED EXPERT

Author

Commented:
I need to freely rotate the picture so if I understand your answer, I would need to create at least 360 animations.

 To get an idea of what I am trying to accomplish, see:
http://media.avit.und.edu/f6_Resources/f5_E6-B%20Flight%20Computer/flightComputer.php
and rotate/spin the inner dial. (Although that webpage has some problems with the rotate/spin function).

Commented:
I see.
CERTIFIED EXPERT

Author

Commented:
I created the following macro:
ActivePresentation.Slides(1).Shapes("Picture 8").IncrementRotation 1
and created an action button that runs that macro.   Each time I click (then release) the action button, Picture 8  rotates one degree.  

Now, l would like Picture 8  to continue rotating as long as I hold down the action button. Any ideas?

Commented:
Perhaps have the macro loop until the button is released?
CERTIFIED EXPERT

Author

Commented:
Tried that but the  macro doesn't activate until the mouse up event.

Commented:
Aha.
You want it to be able to be rotated to any degree?
CEO PowerPoint Alchemy
CERTIFIED EXPERT
Commented:
Use a scroll bar control and set the max to 360 and min to 0.

Private Sub ScrollBar1_Change()
ActivePresentation.Slides(1).Shapes("Picture 8").Rotation=Scrollbar1.Value
End Sub

hold the mouse on one of the Arrows
CERTIFIED EXPERT

Author

Commented:
That worked great!
 Thanks!

Explore More ContentExplore courses, solutions, and other research materials related to this topic.