博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
ASP.NET 导出PPT
阅读量:5336 次
发布时间:2019-06-15

本文共 3409 字,大约阅读时间需要 11 分钟。

  前一段时间因工作需要,需增加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(); }

 

转载于:https://www.cnblogs.com/LEON-D/archive/2011/08/09/2131885.html

你可能感兴趣的文章
迷宫问题
查看>>
【FZSZ2017暑假提高组Day9】猜数游戏(number)
查看>>
泛型子类_属性类型_重写方法类型
查看>>
eclipse-将同一个文件分屏显示
查看>>
对闭包的理解
查看>>
练习10-1 使用递归函数计算1到n之和(10 分
查看>>
Oracle MySQL yaSSL 不明细节缓冲区溢出漏洞2
查看>>
windows编程ASCII问题
查看>>
.net webService代理类
查看>>
Code Snippet
查看>>
Node.js Express项目搭建
查看>>
zoj 1232 Adventure of Super Mario
查看>>
1201 网页基础--JavaScript(DOM)
查看>>
组合数学 UVa 11538 Chess Queen
查看>>
oracle job
查看>>
Redis常用命令
查看>>
XML学习笔记(二)-- DTD格式规范
查看>>
IOS开发学习笔记026-UITableView的使用
查看>>
[转载]电脑小绝技
查看>>
windos系统定时执行批处理文件(bat文件)
查看>>