Assign an Action Setting, Run Macro action to multiple shapes at once
Sometimes you need to apply an action setting to several different shapes at once. Unfortunately, PowerPoint won't allow that. If you select more than one shape at a time, it grays out the Action Settings item on its menus. This can be especially annoying when you need to apply the same Run Macro setting to many shapes.
This macro will assign the same Run Macro action setting to all selected shapes. If you run it without selecting shapes first, it won't do anything.
Sub MacrifyUs() Dim oSh as Shape Dim sMacroName as String ' Edit this; change the name of the macro in quotes to your macro's name sMacroName = "MyMacroName" ' No fancy error handling; just ignore errors On Error Resume Next For Each oSh In ActiveWindow.Selection.ShapeRange With oSh.ActionSettings(ppMouseClick) ' or ppMouseOver if you prefer .Run = sMacroName .Action = ppActionRunMacro End With Next End Sub
See How do I use VBA code in PowerPoint? to learn how to use this example code.