ActionSettings Property Example

The following example sets the actions for clicking and moving the mouse over shape one on slide two in the active presentation.

Set myShape = ActivePresentation.Slides(2).Shapes(1)
myShape.ActionSettings(ppMouseClick).Action = ppActionLastSlide
myShape.ActionSettings(ppMouseOver).SoundEffect.Name = "applause"