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