DoVerb Method

expression.DoVerb(iVerb)

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

iVerb   Required Long. The verb to perform.

Remarks

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

Example

This example performs the first 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 = pbEmbeddedOLEObject Or _
            .Type = pbLinkedOLEObject Then
        .OLEFormat.DoVerb (1)
    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 = pbEmbeddedOLEObject Or _
            .Type = pbLinkedOLEObject 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