16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub OutPutPpt(ByVal dv As System.Data.DataView)
'ppt输出
Dim oPP As PowerPoint.ApplicationClass
Dim oPresSet As PowerPoint.Presentations
Dim oPres As PowerPoint._Presentation
Dim nimage As System.Drawing.Image
Dim height, calheight, width, calwidth, i, n As Int32
oPP = New PowerPoint.Application
oPP.DisplayAlerts = PowerPoint.PpAlertLevel.ppAlertsNone
oPresSet = oPP.Presentations
oPP.Activate()
'到此处,出现System.Runtime.InteropServices.COMException: 远程过程调用失败。
oPres = oPresSet.Open("C:\Inetpub\wwwroot\webvb\null.ppt")
'.......
'.......