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