This example displays all the available verbs for the OLE object contained in shape one on slide two in the active presentation. For this example to work, shape one must be a shape that represents an OLE object.
With ActivePresentation.Slides(2).Shapes(1).OLEFormat
For Each v In .ObjectVerbs
MsgBox v
Next
End With
This example specifies that the OLE object represented by shape one on slide two in the active presentation will open when it's clicked during a slide show if "Open" is one of the OLE verbs for that object. For this example to work, shape one must be a shape that represents an OLE object.
With ActivePresentation.Slides(2).Shapes(1)
For Each sVerb In .OLEFormat.ObjectVerbs
If sVerb = "Open" Then
With .ActionSettings(ppMouseClick)
.Action = ppActionOLEVerb
.ActionVerb = sVerb
End With
Exit For
End If
Next
End With