DoVerb Method

Requests that an OLE object perform one of its verbs.

expression   Required. An expression that returns one of the objects in the Applies To list.

iVerb  Required Long. The verb to perform. If this argument is omitted, the default verb is performed.

Remarks

Use the ObjectVerbs property to determine the available verbs for an OLE object.

Example

This example performs the default verb for the third shape on the first page of the active publication if the shape  is a linked or embedded OLE object.

With ActiveDocument.Pages(1).Shapes(3)
    If .Type = msoEmbeddedOLEObject Or _
            .Type = msoLinkedOLEObject Then
        .OLEFormat.DoVerb
    End If
End With

This example performs the verb "Open" for the third shape on the first page of the active publication if the shape is an OLE object that supports the verb "Open."

Dim strVerb As String
Dim intVerb As Integer

With ActiveDocument.Pages(1).Shapes(3)

    ' Verify that the shape is an OLE object.
    If .Type = msoEmbeddedOLEObject Or _
            .Type = msoLinkedOLEObject Then

        ' Loop through the ObjectVerbs collection
        ' until the "Open" verb is found.
        For Each strVerb In .OLEFormat.ObjectVerbs
            intVerb = intVerb + 1
            If strVerb = "Open" Then

                ' Perform the "Open" verb.
                .OLEFormat.DoVerb iVerb:=intVerb
                Exit For
            End If
        Next strVerb
    End If
End With