VB如何调用powerpoint的另存为把PPT转化成其它格式？

qq409195961 2011-05-11 05:22:37

调用powerpoint的另存为把PPT转化成其它格式？
手动操作！打开PPT，点文件——另存为——选择格式（如jpg）——点保存等。。。
——————————————
附:VB.net源码：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As PowerPoint.Application = New PowerPoint.Application
'a.Visible = Microsoft.Office.Core.MsoTriState.msoTrue
a.Activate()
a.CommandBars(1).Visible = False
a.Presentations.Open("C:\Documents and Settings\widebright\桌面\dddddd.ppt", Microsoft.Office.Core.MsoTriState.msoTrue)
Dim i As Integer
i = 1
a.Presentations(1).Slides(i).Export("C:\Documents and Settings\widebright\桌面\新建文件夹\1.jpg","jpg")
a.Presentations(1).Close()
a.Quit()
End Sub
——————————————
帮忙把代码转成VB也可以！
或者帮忙写下，谢谢哈！

...全文

617 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

dbcontrols 2011-05-11

打赏
举报

太少了，这年头要饭的还能收到10元的呢
[Quote=引用 4 楼 qq409195961 的回复:]
晕～那ppt文件目录呢？？
能否做个源程序（两个Text和一个按钮），分享下！
非常谢谢了！
虽然.....，现在帮我完成的，发到我邮箱xu333666@qq.com
的话，支付宝赠送5元做奖励，鼓励（可换QB）！
[/Quote]

qq409195961 2011-05-11

打赏
举报

晕～那ppt文件目录呢？？
能否做个源程序（两个Text和一个按钮），分享下！
非常谢谢了！
虽然.....，现在帮我完成的，发到我邮箱xu333666@qq.com
的话，支付宝赠送5元做奖励，鼓励（可换QB）！

dbcontrols 2011-05-11

打赏
举报

'先在工程里引用POWERPOINT 

Dim a As New PowerPoint.Application

 a.ActivePresentation.SaveAs FileName:="C:\Documents and Settings\Administrator\桌面\演示文稿1.jpg", FileFormat:=ppSaveAsJPG, EmbedTrueTypeFonts:=msoFalse

qq409195961 2011-05-11