This example sets shape three (an OLE object) on slide one in the active presentation to be played when the mouse passes over it during a slide show.
With ActivePresentation.Slides(1) _
.Shapes(3).ActionSettings(ppMouseOver)
.ActionVerb = "Play"
.Action = ppActionOLEVerb
End With