前一段时间因工作需要,需增加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(); }
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
暂无评论...
P70系列延期,华为新旗舰将在下月发布
3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。
而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?
根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。
更新日志
2024年11月28日
2024年11月28日
- 凤飞飞《我们的主题曲》飞跃制作[正版原抓WAV+CUE]
- 刘嘉亮《亮情歌2》[WAV+CUE][1G]
- 红馆40·谭咏麟《歌者恋歌浓情30年演唱会》3CD[低速原抓WAV+CUE][1.8G]
- 刘纬武《睡眠宝宝竖琴童谣 吉卜力工作室 白噪音安抚》[320K/MP3][193.25MB]
- 【轻音乐】曼托凡尼乐团《精选辑》2CD.1998[FLAC+CUE整轨]
- 邝美云《心中有爱》1989年香港DMIJP版1MTO东芝首版[WAV+CUE]
- 群星《情叹-发烧女声DSD》天籁女声发烧碟[WAV+CUE]
- 刘纬武《睡眠宝宝竖琴童谣 吉卜力工作室 白噪音安抚》[FLAC/分轨][748.03MB]
- 理想混蛋《Origin Sessions》[320K/MP3][37.47MB]
- 公馆青少年《我其实一点都不酷》[320K/MP3][78.78MB]
- 群星《情叹-发烧男声DSD》最值得珍藏的完美男声[WAV+CUE]
- 群星《国韵飘香·贵妃醉酒HQCD黑胶王》2CD[WAV]
- 卫兰《DAUGHTER》【低速原抓WAV+CUE】
- 公馆青少年《我其实一点都不酷》[FLAC/分轨][398.22MB]
- ZWEI《迟暮的花 (Explicit)》[320K/MP3][57.16MB]