全部显示

DoVerb 方法

请求 OLE 对象执行其中一个动词。使用 ObjectVerbs 属性确定 OLE 对象的有效动词。

expression  必选。该表达式返回一个 OLEFormat 对象。

Index  可选。Integer 类型。要执行的动词。如果省略该参数，则执行默认动词。

示例

本示例对活动演示文稿中第一张幻灯片的第三个形状执行默认动词，其中第三个形状是链接或嵌人的 OLE 对象。

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

本示例对活动演示文稿中第一张幻灯片的第三个形状执行默认动词“Open”，其中第三个形状是支持动词“Open”的 OLE 对象。

With ActivePresentation.Slides(1).Shapes(3)
    If .Type = msoEmbeddedOLEObject Or _
            .Type = msoLinkedOLEObject Then
        For Each sVerb In .OLEFormat.ObjectVerbs
            nCount = nCount + 1
            If sVerb = "Open" Then
                .OLEFormat.DoVerb nCount
                Exit For
            End If
        Next
    End If
End With