Microsoft Office Tutorials and References
In Depth Information
Moving Shapes and Graphics During Presentation
' * * * * *¶
Sub SpinCW()¶
With ActivePresentation.Slides(1).Shapes(varShapeName)¶
'And clockwise¶
.Rotation = .Rotation + 1¶
End With¶
End Sub¶
' * * * * *¶
Sub NameIt(objShape As Shape)¶
'When an object is clicked and has the action setting _¶
'set to this Macro, that object's name will become the _¶
'value of varShapeName. In each of the other Macros, _¶
'that object will be moved, at least until another _¶
'object that triggers this Macro is clicked¶
varShapeName = objShape.Name¶
End Sub¶
The slide to which the code relates must have three pictures or autoshapes on
the top portion.
On the bottom half,
add Two Spin
Buttons from the
Control Toolbox
1. View the Control Toolbox by choosing click View |
Toolbars | Control Toolbox from the PowerPoint
application window. The buttons are automatically
named SpinButton1 and SpinButton2.
2. Use the handles on the shapes to make the first one
wider than it is tall. This should cause the arrows to
point to the sides.
3. Make SpinButton2 taller than it is wide so the
arrows point up and down.
4. Double-click on either of the spin controls to bring up
the VBE window for the slide-based code. Replace
any code found in the VBE window with the code
provided above.
Note: The code must already be added to the presentation
for the next steps to work.
Search JabSto ::

Custom Search