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