I'm assuming that
1. You add a shape and click code
2. During the presentation you click the shape to run the associated macro
3. Sometime during the presentation something or a macro or you have some way of deciding that the shape click code should no longer be run if the shape is clicked ?????
4. Add a global Boolean flag and test before running the shape's macro
5. or change the .Run to a 'Do Nothing' macro
Public bDontRun as Boolean
.....
sMacroName = "NameOfMacro"
Set MyShape = MyDocument.Shapes(stringName)
With MyShape.ActionSettings(ppMouseClick)
.Run = sMacroName
.Action = ppActionRunMacro
End With
in a shape or macro, change bDontRun to True
'-----------------------------------------------------
Sub NameOfMacro
if bDontRun Then Exit Sub
End Sub