VBA编程在课件中的应用0113.ppt

《VBA编程在课件中的应用0113.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBA编程在课件中的应用课件制作技巧全解密潘淳第一节第二节第三节第四节第五节第六节学习方法第一小节对象介绍第三小节三种模式第五小节使用场景第二小节四个层次第四小节操作实列第六小节课程大纲课件制作技巧全解密VBA编程在课件中的应用爱PPT@图书#39220027http://www.aippt.cn学习方法第一节第二节第三节第四节第五节第六节学习方法第一小节对象介绍第三小节三种模式第五小节使用场景第二小节四个层次第四小节操作实列第六小节课程大纲Powerpoint中使用VBA的场景自动化交互性功能共享增强课件的交互性实现重复操作自动化与其它应

2、用程序交互学习方法交流途径SubT()'创建你的第一个宏MsgBox"Hello，PowerPoint2010!"EndSub第一节第二节第三节第四节第五节第六节学习方法第一小节对象介绍第三小节三种模式第五小节使用场景第二小节四个层次第四小节操作实列第六小节课程大纲Powerpoint主要版本的对象数量更早200320072010对象数：125对象数：177对象数：188WindowsSlideShowWindowsProtectedViewWindowsSlidesPresentationsShapesApplicationHeaders

3、FootersTextFrameTextRangeTextPowerPoint中的主要操作对象第一节第二节第三节第四节第五节第六节学习方法第一小节对象介绍第三小节三种模式第五小节使用场景第二小节四个层次第四小节操作实列第六小节课程大纲应用程序演示文稿幻灯片页图形形状第一层次第二层次第三层次第四层次ＰＰＴ构成的四个层次ApplicationPresentationSlideShape第一层次第二层次第三层次第四层次ＰＰＴ构成的四个层次Application对象SubT1()'使用内置的Application对象Dimppt1AsPowerPo

4、int.ApplicationSetppt1=PowerPoint.ApplicationMsgBoxppt1.ActivePresentation.Name'创建并使用Application对象Dimppy2AsPowerPoint.ApplicationSetppt2=NewPowerPoint.ApplicationMsgBoxppt1.ActivePresentation.NameEndSubPresentation对象SubT2()'创建默认的新演示文稿DimpresAsPowerPoint.PresentationSetpres

5、=Presentations.Add(WithWindow:=msoFalse)'首次保存演示文稿pres.SaveAs("新的演示文稿.ppt")'打开演示文稿Setpres=Presentations.Open(FileName:="新的演示文稿.ppt")EndSubSlide对象SubT3()'创建默认的新演示文稿DimpresAsPowerPoint.PresentationSetpres=Presentations.Add(WithWindow:=msoTrue)'定义版式Dimlayout1,layout2AsCustomLa

6、youtSetlayout1=pres.SlideMaster.CustomLayouts(1)Setlayout2=pres.SlideMaster.CustomLayouts(2)'添加幻灯片到演示文稿pres.Slides.AddSlideIndex:=1,pCustomLayout:=layout1pres.Slides.AddSlideIndex:=1,pCustomLayout:=layout2EndSub第一页第二页PowerPoint坐标系统幻灯片模式放映模式X=720Y=540（0，0）PowerPoint坐标系统幻灯片模

7、式放映模式X=720Y=540（0，0）PowerPoint坐标系统X=720Y=540（0，0）Shape对象'创建默认的新演示文稿DimpresAsPowerPoint.PresentationSetpres=Presentations.Add(WithWindow:=msoTrue)'定义版式Dimlayout1,layout2AsCustomLayoutSetlayout1=pres.SlideMaster.CustomLayouts(1)'添加幻灯片到演示文稿DimsliAsSlideSetsli=pres.Slides.AddS

8、lide(Index:=1,pCustomLayout:=layout1)sli.Layout=ppLayoutBlank'绘制矩形sli.Shapes.AddLineBegin