Foxtable(狐表)用户栏目专家坐堂 → 关于PPT报表


  共有3554人关注过本帖树形打印复制链接

主题:关于PPT报表

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/31 9:49:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/7 20:20:00 [显示全部帖子]

 你具体要做什么?用代码直接往ppt里面添加你需要的元素,不就可以了?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/9 14:10:00 [显示全部帖子]

添加元素,参考

 

http://bbs.csdn.net/topics/391937345

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/15 16:08:00 [显示全部帖子]

 pdf转图片,新增ppt,ppt插入一张张图片。这样可以代码实现。

 

 pdf可以直接转为ppt,网上有软件/工具,但基本都是付费的。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/15 16:17:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/15 16:18:00 [显示全部帖子]

c#转vb.net,参考 http://converter.telerik.com/

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/16 8:50:00 [显示全部帖子]

Microsoft.Office.Core.MsoTriState.msoFalse

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/16 10:44:00 [显示全部帖子]

你的路径问题吧?
 
MyPres = PPT.Presentations.Open("D:\est.pptx", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue)

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/16 11:48:00 [显示全部帖子]

改成

 

MyPres = PPT.Presentations.Open("D:\test.pptx", 0,0,0)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/17 9:01:00 [显示全部帖子]

Dim PPT As New Microsoft.Office.Interop.PowerPoint.Application()
'创建PPT应用
Dim MyPres As Microsoft.Office.Interop.PowerPoint.Presentation = Nothing
'PPT应用的实例
Dim MySlide As Microsoft.Office.Interop.PowerPoint.Slide = Nothing 'PPT中的幻灯片
Dim k As Integer = 5 ' 设置添加的页数
MyPres = PPT.Presentations.Open("D:\test.pptx", 0,0,0)
For i As Integer = 1 To k
    MySlide = MyPres.Slides.Add(1, Microsoft.Office.Interop.PowerPoint.PpSlideLayout.ppLayoutBlank)
    MySlide.Shapes.AddPicture("D:\" & i & ".jpg", 1, 1, 27F, 24F, 665F, 450F)
Next
PPT.quit
output.show("完成")

 回到顶部
总数 13 1 2 下一页