Question

如何用VC读写ppt文件中的Excel表

Answer 1

Each Shape that represents an OLE object contains a OLEFormat object. The actions an OLE object can perform are contained in the ObjectVerbs collection, which is a child of the OLEFormat object. For example, the following code returns the verbs available for the specified OLE object:

Dim intCount As Integer

With ActivePresentation.Slides(5).Shapes("AVI File") _
.OLEFormat.ObjectVerbs
For intCount = 1 To .Count
Debug.Print intCount & " " & .Item(intCount)
Next
End With

To request that an OLE object perform one of its actions, use the DoVerb method.

To specify that the OLE object perform one of its actions when the user clicks or moves the mouse over it during a presentation, set the Action property of the ActionSettings object to ppActionOLEVerb, and the ActionVerb property to the action you want the object to perform. For example, the following code sets the selected OLE object to play when the user moves the mouse over it during a presentation. This example assumes that the OLE object exposes a verb named "Play".

With ActivePresentation.Slides(5).Shapes("AVI File") _
.ActionSettings.Item(ppMouseOver)
.Action = ppActionOLEVerb
.ActionVerb = "Play"
End With