Question

全部显示

返回一个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