主题：关于PPT报表

以下是引用有点色在2017/6/20 12:09:00的发言：

 

暂时不会有ppt报表。你可以用代码操作ppt

 

引用dll

 

下载信息  [文件大小：1.3 MB  下载次数：2]

点击浏览该文件:microsoft.office.interop.powerpoint.zip

执行代码

 

Dim app As new Microsoft.Office.Interop.PowerPoint.Application
Dim ppt = app.Presentations.Open("g:\test.pptx",0,0,0)
msgbox(Microsoft.Office.Interop.PowerPoint.PpFixedFormatType.ppFixedFormatTypePDF)
ppt.saveas("e:\test.pdf", 32, 1)
app.quit