Action Property Example

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