怎么用VC读写ppt文件中的Excel表
如何用VC读写ppt文件中的Excel表
我大致了解一些用VC操作ppt和xls文件的知识。
但是，我的目标是读写一个ppt文件中嵌入的excel表格，怎么把这两者的知识联系起来？
ppt:Application -> Presentations -> Presentation -> slides -> slide -> shapes -> shape
excel:Application -> Workbooks -> wookbook -> worksheets -> worksheet -> Range ...
以上是我会的知识，怎么能TMD的联系上呢？请大侠帮帮忙！
------解决方案--------------------
使用一个IE控件，请参见：
http://www.vckbase.com/document/viewdoc/?id=1075
------解决方案--------------------
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
------解决方案--------------------
shapes.AddOLEObject:
http://support.microsoft.com/kb/222960
http://support.microsoft.com/kb/q180616/
我大致了解一些用VC操作ppt和xls文件的知识。
但是，我的目标是读写一个ppt文件中嵌入的excel表格，怎么把这两者的知识联系起来？
ppt:Application -> Presentations -> Presentation -> slides -> slide -> shapes -> shape
excel:Application -> Workbooks -> wookbook -> worksheets -> worksheet -> Range ...
以上是我会的知识，怎么能TMD的联系上呢？请大侠帮帮忙！
------解决方案--------------------
使用一个IE控件，请参见：
http://www.vckbase.com/document/viewdoc/?id=1075
------解决方案--------------------
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
------解决方案--------------------
shapes.AddOLEObject:
http://support.microsoft.com/kb/222960
http://support.microsoft.com/kb/q180616/