No, PowerPoint doesn't have this ability natively, but you can move stuff
around on the slide by using a little VBA and action settings.
First, Copy the Code into the VBE (Visual Basic Editor) Window. You can
open this window (if VBA is enabled from your Office Installation) by typing
Alt and F11 keys.
Second, create four arrows that point left, right, up and down. These can
be make using Autoshapes. I also recommend placing a larger circle behind
the group of four arrows (just in case you miss with the mouse click). Then
assign an Action Setting to each of the arrows, MoveUp for up, MoveRight for
right, and so on. Assign the action setting - on mouse click 'Nada' for the
circle behind the arrows. Lastly, on any object you would like to be able
to move, assign 'MoveObj' macro, to the mouse over Action setting (or mouse
click, your call).
Now, here's what it does. When the mouse passes over an object that you
have 'activated' with the 'MoveObj', it becomes the thing that will be
moved. When the arrows are clicked, that item moves a little in the
direction the arrow points.
Please note a couple of things:
1) Objects do not have to be showing to be moved, so unrevealed objects and
objects from the most recent activation will move even if you can not see
them moving.
2) If VBA support has not been installed with Office, this will not work.
3) If Macro security is set to High, this will be deactivated. Determine
the correct Macro security level for your use.
4) The amount of distance that an objects moves can be changed in the code
5) Any object can be assigned to move others, not just arrows.
6) Objects that go up, do not have to come down. The changed location of
the objects will register as a presentation update and you will be prompted
to Save when the presentation is closed.
So here is the simple VBA code,
======Begin Code==========
Public LastObj As Shape
Sub MoveObj(oShp As Shape)
Set LastObj = oShp
End Sub
Sub MoveLeft(oShp As Shape)
LastObj.Left = LastObj.Left - 5
DoEvents
End Sub
Sub MoveRight(oShp As Shape)
LastObj.Left = LastObj.Left + 5
DoEvents
End Sub
Sub MoveUp(oShp As Shape)
LastObj.Top = LastObj.Top - 5
DoEvents
End Sub
Sub MoveDown(oShp As Shape)
LastObj.Top = LastObj.Top + 5
DoEvents
End Sub
Sub Nada()
DoEvents
End Sub
======End Code==========
Play safe, have fun,
--
Bill Dilworth, Microsoft PPT MVP
===============
Please spend a few minutes checking vestprog2@
out
www.pptfaq.com This link will yahoo.
answer most of our questions, before com
you think to ask them.
Change org to com to defuse anti-spam,
ant-virus, anti-nuisance misdirection.
..
..
