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

三种窗口模式 窗口数量 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 第一节 第二节 第三节 第四节 第五节 第六节 学习方法 第一小节 对象介绍 第三小节 三种模式 第五小节 使用场景 第二小节 四个层次 第四小节 第六小节 课程大纲 跟据模板自动生成带节的演示文稿 新建文稿 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) 感谢聆听 * * VBA编程在课件中的应用 VBA编程在课件中的应用 VBA编程在课件中的应用 VBA编程在课件中的应用 工单号： 网 点： 日期： VBA编程在课件中的应用 VBA编程在课件中的应用 VBA编程在课件中的应用 中国邮政储蓄银行 POSTAL SAVINGS BANK OF CHINA 支 行 HangMing Subbranch 对公业务 个人业务 Corporate Banking Private Banking Monday to Friday Monday to Saturday 08:30—11:30 08:30—17:00 13:30—16:30 星期一至五 星期一至六 节假日不办理 Public Holiday Close VBA编程在课件中的应用 中国邮政储蓄银行 POSTAL SAVINGS BANK OF CHINA