本示例设置鼠标点击活动演示文稿的第一张幻灯片的第一个形状时,结束放映。

Set myShape = ActivePresentation.Slides(1).Shapes(1)
myShape.ActionSettings(wpMouseClick).Action = wpActionEndShow