VBA编程在课件中的应用0113
- 1. 课件制作技巧全解密潘淳
- 2. 第一节第二节第三节第四节第五节第六节第一小节对象介绍第三小节三种模式第五小节使用场景第二小节四个层次第四小节操作实列第六小节课程大纲
- 3. 学习方法
- 4. 第一节第二节第三节第四节第五节第六节学习方法第一小节对象介绍第三小节三种模式第五小节第二小节四个层次第四小节操作实列第六小节课程大纲
- 5. Powerpoint 中使用 VBA 的场景自动化交互性功能共享增强课件的交互性实现重复操作自动化与其它应用程序交互
- 6. 学习方法交流途径 Sub T() ' 创建你的第一个宏 MsgBox "Hello，PowerPoint 2010 !" End Sub
- 7. 第一节第二节第三节第四节第五节第六节学习方法第一小节第三小节三种模式第五小节使用场景第二小节四个层次第四小节操作实列第六小节课程大纲
- 8. Powerpoint 主要版本的对象数量更早200320072010
- 9. WindowsSlideShow WindowsProtectedView WindowsSlidesPresentationsShapesApplicationHeaders FootersTextFrameTextRangeTextPowerPoint 中的主要操作对象
- 10. 第一节第二节第三节第四节第五节第六节学习方法第一小节对象介绍第三小节三种模式第五小节使用场景第二小节第四小节操作实列第六小节课程大纲
- 11. 应用程序演示文稿幻灯片页图形形状
- 12. ApplicationPresentationSlideShape
- 13. Application 对象Sub T1() '使用内置的Application对象 Dim ppt1 As PowerPoint.Application Set ppt1 = PowerPoint.Application MsgBox ppt1.ActivePresentation.Name '创建并使用Application对象 Dim ppy2 As PowerPoint.Application Set ppt2 = New PowerPoint.Application MsgBox ppt1.ActivePresentation.Name End Sub
- 14. Presentation 对象Sub T2() '创建默认的新演示文稿 Dim pres As PowerPoint.Presentation Set pres = Presentations.Add(WithWindow:=msoFalse) '首次保存演示文稿 pres.SaveAs ("新的演示文稿.ppt") '打开演示文稿 Set pres = Presentations.Open(FileName:="新的演示文稿.ppt") End Sub
- 15. Slide 对象Sub T3() '创建默认的新演示文稿 Dim pres As PowerPoint.Presentation Set pres = Presentations.Add(WithWindow:=msoTrue) '定义版式 Dim layout1, layout2 As CustomLayout Set layout1 = pres.SlideMaster.CustomLayouts(1) Set layout2 = pres.SlideMaster.CustomLayouts(2) '添加幻灯片到演示文稿 pres.Slides.AddSlide Index:=1, pCustomLayout:=layout1 pres.Slides.AddSlide Index:=1, pCustomLayout:=layout2 End Sub
- 16. PowerPoint坐标系统幻灯片 模式放映 模式
- 17. PowerPoint坐标系统幻灯片 模式放映 模式
- 18. PowerPoint坐标系统
- 19. Shape 对象 '创建默认的新演示文稿 Dim pres As PowerPoint.Presentation Set pres = Presentations.Add(WithWindow:=msoTrue) '定义版式 Dim layout1, layout2 As CustomLayout Set layout1 = pres.SlideMaster.CustomLayouts(1) '添加幻灯片到演示文稿 Dim sli As Slide Set sli = pres.Slides.AddSlide(Index:=1, pCustomLayout:=layout1) sli.Layout = ppLayoutBlank '绘制矩形 sli.Shapes.AddLine BeginX:=0 + 1, BeginY:=0 + 1, EndX:=720 - 1, EndY:=0 + 1 sli.Shapes.AddLine BeginX:=0 + 1, BeginY:=540 - 1, EndX:=720 - 1, EndY:=540 - 1 sli.Shapes.AddLine BeginX:=0 + 1, BeginY:=0 + 1, EndX:=0 + 1, EndY:=540 - 1 sli.Shapes.AddLine BeginX:=720 - 1, BeginY:=0 + 1, EndX:=720 - 1, EndY:=540 - 1
- 20. 第一节第二节第三节第四节第五节第六节学习方法第一小节对象介绍第三小节第五小节使用场景第二小节四个层次第四小节操作实列第六小节课程大纲
- 21. 窗口模式比较窗口模式使用场景窗口对象窗口集合当前窗口版本文档窗口文档窗口是容纳演示文稿的窗口。Document WindowWindowsActive Window支持所有版本放映窗口幻灯片放映窗口是容纳打开的幻灯片的窗口。Slide Show WindowSlide Show Windows无支持所有版本保护窗口来自 Internet 和其他可能不安全位置的文件会在“受保护的视图”窗口中打开。Protected View WindowProtected View WindowsActive Protected View Window仅支持2010
- 22. 三种窗口模式 '窗口数量 MsgBox "文档窗口数量：" & Windows.Count MsgBox "放映窗口数量：" & SlideShowWindows.Count If Application.Version >= "14.0" Then MsgBox "保护窗口数量：" & ProtectedViewWindows.Count End If '当前文档视图窗口 If Windows.Count > 0 Then If (Windows(1).Active) Then MsgBox "当前文档窗口：" & ActiveWindow.Caption End If End If '当前放映视图窗口 If SlideShowWindows.Count > 0 Then If (SlideShowWindows(1).Active) Then MsgBox "当前放映窗口：" & ActivePresentation.Name End If End If '当前保护视图窗口 If Application.Version >= "14.0" Then If ProtectedViewWindows.Count > 0 Then If (ProtectedViewWindows(1).Active) Then MsgBox "当前保护窗口：" & ActiveProtectedViewWindow.Caption End If End If End If
- 23. 第一节第二节第三节第四节第五节第六节学习方法第一小节对象介绍第三小节三种模式第五小节使用场景第二小节四个层次第四小节第六小节课程大纲
- 24. 跟据模板自动生成带节的演示文稿'新建文稿 Dim pres As Presentation Set pres = Presentations.Open(path & "服务模版.potx") '创建文件 Dim fileName As String fileName = path & "服务2010年" & Strings.Format(month, "00") & "月.pptx" Call pres.SaveAs(fileName) '新建章节（注：仅支持 PowerPoint 2010） Call ActivePresentation.SectionProperties.AddSection(1, "封面") Call ActivePresentation.SectionProperties.AddSection(2, "投诉") '获得版式 Dim layout_fm, layout_fd As CustomLayout Dim layout_ts_title, layout_ts_text As CustomLayout '封面 Dim sli_fm As slide Set sli_fm = pres.Slides.AddSlide(ActivePresentation.Slides.count + 1, layout_fm) sli_fm.MoveToSectionStart (1) '其它关于 sli_fm 的操作 sli_fm.Shapes(1).TextFrame.TextRange.Text = Strings.Format(month, "00")
- 25. 感谢聆听
该用户的其他文档
相关PPT