一、ActionSetting对象
包含指定形状或文本范围在幻灯片放映中对鼠标动作的反应的信息。ActionSetting 对象是 ActionSettings 集合的成员。ActionSettings 集合包含一个 ActionSetting 对象（该对象代表幻灯片放映中用户单击指定对象时的反应）和一个 ActionSetting 对象（该对象代表幻灯片放映中用户将鼠标移过指定对象时的反应）。
使用ActionSetting 对象的示例代码
使用 ActionSettings(index) 返回单个 ActionSetting 对象，其中 index 是 ppMouseClick 或 ppMouseOver。以下示例设定单击当前演示文稿第一张幻灯片第三个形状中的文本时，连接到 Internet 上。
With ActivePresentation.Slides(1).Shapes(3) _
.TextFrame.TextRange.ActionSettings(ppMouseClick)
.Action = ppActionHyperlink
.Hyperlink.Address = "http://www.dzwebs.net"
End With
说明：如果设置了 ActionSetting 对象的属性但没有效果，请确认将 Action 属性设为相应的值。
二、ActionSettings
包含两个ActionSetting 对象的集合，这些对象用于形状或文本范围。其中一个 ActionSetting 对象代表幻灯片放映中用户单击指定对象时的反应；另一个 ActionSetting 对象代表幻灯片放映中用户将鼠标移过指定对象时的反应。
使用ActionSettings集合
使用 ActionSettings 属性返回 ActionSettings 集合。使用 ActionSettings(index) 返回单个 ActionSetting 对象，其中 index 是 ppMouseClick 或 ppMouseOver。以下示例指定幻灯片放映中鼠标移过某形状时执行宏“CalculateTotal”。
With ActivePresentation.Slides(1).Shapes(3) _
.ActionSettings(ppMouseOver)
.Action = ppActionRunMacro
.Run = "CalculateTotal"
.AnimateAction = True
End With