using PowerPoint = Microsoft.Office.Interop.PowerPoint;
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();
}
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码(独立后台)...苏ICP备2024110244号-2 苏公网安备32050702011978号 增值电信业务经营许可证编号:苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有