ObjectVerbs Property Example

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