极乐门资源网 Design By www.ioogu.com
前一段时间因工作需要,需增加ppt数据的导出下载。发现网络上这方面资料并不是很多,零零散散地找到一些相关的资料,经过自己的试验,终于完成相关功能。应博友要求,在此分享下我的经验,不好之处还望大家多多指出。
在做之前,首先需要添加相关引用Microsoft.Office.Interop.PowerPoint.dll。
using PowerPoint = Microsoft.Office.Interop.PowerPoint;
操作PPT代码如下:
复制代码
public void createPPT() { try { //ppt存储路径 string path = string.Format("{0}/{1}.ppt", Server.MapPath("."), DateTime.Now.Ticks.ToString()); //ppt引用的模版路径 string MyTemplateFile = "d:\\test.pot"; PowerPoint.ApplicationClass MyApp; PowerPoint.Presentations MyPresSet; PowerPoint._Presentation MyPres; PowerPoint.Shape objShape; PowerPoint.Slides objSlides; PowerPoint._Slide MySlide; PowerPoint.TextRange objTextRng; PowerPoint.Table table = null; MyApp = new PowerPoint.ApplicationClass(); //如果已存在,则删除 if (File.Exists((string)path)) { File.Delete((string)path); } Object Nothing = Missing.Value; //套用模版 MyPres = MyApp.Presentations.Open(MyTemplateFile, MsoTriState.msoFalse, MsoTriState.msoFalse, MsoTriState.msoFalse); MyPresSet = MyApp.Presentations; objSlides = MyPres.Slides; //创建第一张PPT ppLayoutTitle指定模板首页 MySlide = objSlides.Add(1, PowerPoint.PpSlideLayout.ppLayoutTitle); //添加一行文字(left:10,top:110,width:700,height:400) objTextRng = MySlide.Shapes.AddLabel(MsoTextOrientation.msoTextOrientationHorizontal, 10, 110, 700, 400).TextFrame.TextRange; objTextRng.Text = " PPT"; objTextRng.Font.Color.RGB = 0x66CCFF; //设置字的颜色 objTextRng.Font.Size = 42; //字号 //创建第二张PPT ppLayoutBlank指定无标题页 MySlide = objSlides.Add(2, PowerPoint.PpSlideLayout.ppLayoutBlank); //插入图片 MySlide.Shapes.AddPicture("1.jpg", MsoTriState.msoFalse, MsoTriState.msoTrue, 110, 140, 500, 300); //创建第三张PPT ppLayoutTitleOnly指定仅有标题页 MySlide = objSlides.Add(3, PowerPoint.PpSlideLayout.ppLayoutTitleOnly); objTextRng = MySlide.Shapes[1].TextFrame.TextRange; objTextRng.Text = "目录"; objTextRng.Font.Size = 32; //插入图片 MySlide.Shapes.AddPicture("1.jpg", MsoTriState.msoFalse, MsoTriState.msoTrue, 110, 140, 500, 300); //创建第四张PPT MySlide = objSlides.Add(3, PowerPoint.PpSlideLayout.ppLayoutBlank); //添加一个表格 objShape = MySlide.Shapes.AddTable(3, 3, 105, 150, 400, 100); table = objShape.Table; for (int i = 1; i <= table.Rows.Count; i++) { for (int j = 1; j <= table.Columns.Count; j++) { table.Cell(i, j).Shape.TextFrame.TextRange.Font.Size = 12; table.Cell(i, j).Shape.TextFrame.TextRange.Text = string.Format("[{0},{1}]", i, j); } } //保存格式 PowerPoint.PpSaveAsFileType format = PowerPoint.PpSaveAsFileType.ppSaveAsDefault; //内容保存 MyPres.SaveAs(path, format, Microsoft.Office.Core.MsoTriState.msoFalse); //关闭excelDoc文档对象 MyPres.Close(); //关闭excelApp组件对象 MyApp.Quit(); }
极乐门资源网 Design By www.ioogu.com
极乐门资源网
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
极乐门资源网 Design By www.ioogu.com
暂无ASP.NET中实现导出ppt文件数据的实例分享的评论...
RTX 5090要首发 性能要翻倍!三星展示GDDR7显存
三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。
首次推出的GDDR7内存模块密度为16GB,每个模块容量为2GB。其速度预设为32 Gbps(PAM3),但也可以降至28 Gbps,以提高产量和初始阶段的整体性能和成本效益。
据三星表示,GDDR7内存的能效将提高20%,同时工作电压仅为1.1V,低于标准的1.2V。通过采用更新的封装材料和优化的电路设计,使得在高速运行时的发热量降低,GDDR7的热阻比GDDR6降低了70%。
更新日志
2025年01月25日
2025年01月25日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]