Multiple objectsActionSettings
ActionSetting
Multiple objects
A collection that contains the two ActionSetting objects for a shape or text range. One ActionSetting object represents how the specified object reacts when the user clicks it during a slide show, and the other ActionSetting object represents how the specified object reacts when the user moves the mouse pointer over it during a slide show.
Using the ActionSettings Collection
Use the ActionSettings property to return the ActionSettings collection. Use ActionSettings(index), where index is either ppMouseClick or ppMouseOver, to return a single ActionSetting object. The following example specifies that the CalculateTotal macro be run whenever the mouse pointer passes over the shape during a slide show.
With ActivePresentation.Slides(1).Shapes(3) _
.ActionSettings(ppMouseOver)
.Action = ppActionRunMacro
.Run = "CalculateTotal"
.AnimateAction = True
End With