Class ActionSetting (PowerPoint VBA)

Contains information about how the specified shape or text range reacts to mouse actions during a slide show.

Set

To use a ActionSetting class variable it first needs to be instantiated, for example

Dim asg as ActionSetting
Set asg = ActiveWindow.RangeFromPoint.ActionSettings(Index:=1)

The following procedures can be used to set variables of type ActionSetting: ActionSettings.Item, Shape.ActionSettings, ShapeRange.ActionSettings and TextRange.ActionSettings

Themes

The following procedures in this class have been grouped together and are described on a separate theme page

Display/Show with its procedures ShowAndReturn and SlideShowName

Properties

Action returns or sets the type of action that will occur when the specified shape is clicked or the mouse pointer is positioned over the shape during a slide show.

ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseOver).Action = ppActionEndShow

ActionVerb returns or sets a string that contains the OLE verb that will be run when the user clicks the specified shape or passes the mouse pointer over it during a slide show.

ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseOver).ActionVerb =

AnimateAction specifies whether the color of the specified shape is momentarily inverted when the specified mouse action occurs.

ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseOver).AnimateAction = msoTrue

Hyperlink returns a Hyperlink object that represents the hyperlink for the specified shape.

Dim hypHyperlink As Hyperlink
Set hypHyperlink = ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseOver).Hyperlink

Parent returns the parent object for the specified object.

Dim objParent As Object
Set objParent = ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseOver).Parent

Run returns or sets the name of the presentation or macro to be run when the specified shape is clicked or the mouse pointer passes over the shape during a slide show.

ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseOver).Run =

SoundEffect returns a SoundEffect object that represents the sound to be played during the transition to the specified slide.

Dim setSoundEffect As SoundEffect
Set setSoundEffect = ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseOver).SoundEffect

ActionSettings.Count returns the number of objects in the specified collection.

Dim lngCount As Long
lngCount = ActiveWindow.RangeFromPoint.ActionSettings.Count

ActionSettings.Parent returns the parent object for the specified object.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.ActionSettings.Parent