- 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. 窗口模式比较窗口模式使用场景窗口对象窗口集合当前窗口版本文档窗口文档窗口是容纳演示文稿的窗口。DocumentWindowWindowsActiveWindow支持所有版本放映窗口幻灯片放映窗口是容纳打开的幻灯片的窗口。SlideShowWindowSlideShowWindows无支持所有版本保护窗口来自 Internet 和其他可能不安全位置的文件会在“受保护的视图”窗口中打开。ProtectedViewWindowProtectedViewWindowsActiveProtectedViewWindow仅支持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. 感谢聆听