全部显示

ObjectVerbs 属性

返回一个 ObjectVerbs 集合，该集合包含指定 OLE 对象的所有 OLE 动作。只读。

示例

本示例显示了活动演示文稿中第二张幻灯片上第一个形状内的 OLE 对象具有的所有可用操作。只有当第一个形状是 OLE 对象时，这个例子才会有效。

With ActivePresentation.Slides(2).Shapes(1).OLEFormat
    For Each v In .ObjectVerbs
        MsgBox v
    Next
End With

本示例表明：对于活动演示文稿上第二张幻灯片中第一个形状所代表的 OLE 对象而言，若“Open”为该对象的一个 OLE 操作，那么在幻灯片演示过程中如果单击该对象，则此对象会打开。另外，要求第一个形状也必须是 OLE 对象。

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