PPT VBA中的对象模型

PPT 对象模型：
Application
Presentations
Presentation
Slides
Slide
Shapes
Shape
在ppt中vba的属性，类，方法

1.Application对象 该对象代表PowerPoint应用程序，通过该对象可访问PowerPoint中的其他所有对象。

(1)Active属性：返回指定窗格是否被激活。
(2)ActivePresentation属性：返回Presentation对象，代表活动窗口中打开的演示文稿。

(3)ActiveWindow属性：返回DocumentWindow对象，代表当前文档窗口。

(4)Presentations属性：返回Presentations集合，代表所有打开的演示文稿。

(5)SlideShowWindows属性：返回 SlideShowWindows集合，代表所有打开的幻灯片放映窗口。
(6)Quit方法：用于退出PowerPoint程序。

2.DocumentWindow对象 该对象代表文档窗口。使用“Windows(index) ”语法可返回DocumentWindow对象。

(1)ActivePane属性：返回Pane对象，代表文档窗口中的活动窗格。

(2)Panes属性：返回Panes集合，代表文档窗口中的所有窗格。

(3)ViewType属性：返回指定的文档窗口内的视图类型。[NextPage]


3.Presentation对象 该对象代表演示文稿，通过“Presentations(index)”语法可返回Presentation对象。

(1)BuiltInDocumentProperties属性：返回DocumentProperties集合，代表演示文稿的所有文档属性。
(2)ColorSchemes属性：返回ColorSchemes 集合，代表演示文稿的配色方案。

(3)PageSetup属性：返回PageSetup对象，用于控制演示文稿的幻灯片页面设置属性。

(4)SlideMaster属性：返回幻灯片母版对象。

(5)SlideShowSettings属性：返回SlideShowSettings对象，代表演示文稿的幻灯片放映设置。

(6)SlideShowWindow属性：返回幻灯片放映窗口对象。
(7)AddTitleMaster方法：为演示文稿添加标题母版。

(8)ApplyTemplate方法：对演示文稿应用设计模板。


4.SlideShowWindow对象 该对象代表幻灯片放映窗口。

IsFullScreen属性：用于设置是否全屏显示幻灯片放映窗口。[NextPage]
5.Master对象 该对象代表幻灯片母版、标题母版、讲义母版或备注母版。 TextStyles属性：为幻灯片母版返回TextStyles 集合，代表标题文本、正文文本和默认文本。

6.Slide对象 该对象代表幻灯片。 (1)SlideID属性：返回幻灯片的唯一标识符。

(2)SlideIndex属性：返回幻灯片在Slides集合中的索引号。

7.SlideShowView对象 该对象代表幻灯片放映窗口中的视图。
(1)AcceleratorsEnabled属性：用于设置是否允许在幻灯片放映时使用快捷键。

(2)CurrentShowPosition属性：返回当前幻灯片在放映中的位置。

(3)DrawLine方法：在指定幻灯片放映视图中绘制直线。

(4)EraseDrawing方法：用于清除通过DrawLine方法或绘图笔工具在放映中绘制的直线。

(5)GotoSlide方法：用于切换指定幻灯片。

ActivePresentation.SlideShowWindow.View.Exit

更新天数：
Sub OnSlideShowPageChange()
With ActivePresentation.Slides(1)
.Shapes(1).TextFrame.TextRange.Text = Format(Date, "yyyy年m月d日")
.Shapes(4).TextFrame.TextRange.Text = Date - #7/6/2021#
EndWith
End Sub

Sub tap ()
        SendKeys "{TAB}"
        SendKeys "{ENTER}"
        End Sub（注：该代码是由PowerPoint Heaven的Microsoft MVP：John 提供）

播放需要mp3和同名的lrc文件支持，下面三种任选一种
1、最简单的准备
凤凰传奇-最炫民族风.mp3
凤凰传奇-最炫民族风.lrc
和ppt在同一个文件夹下面
2、修改代码，在ppt同一文件夹下准备mp3和lrc
Sub OnSlideShowPageChange() '开始播放自动启动的宏
OpenLrfile ActivePresentation.Path & "\凤凰传奇-最炫民族风.lrc"
End Sub
3、其他mp3和同名的lrc歌词文件在同一个文件夹下，放映后打开

应用于 Slide 和 SlideRange 对象的 SlideNumber 属性。



返回幻灯片编号。只读。Integer 类型。



expression.SlideNumber



expression  必选。该表达式返回上述对象之一。



说明

Slide 对象的 SlideNumber 属性是显示幻灯片编号时在幻灯片右下角出现的实际编号。此编号由演示文稿（SlideIndex 属性值）中的幻灯片编号以及作为演示文稿（FirstSlideNumber 属性值)起始幻灯片的编号决定。幻灯片编号总是等于开始幻灯片编号 + 幻灯片索引号 - 1。







SlideIndex 属性

请参阅 应用于 示例 特性

返回 Slides 集合内指定幻灯片的索引号。只读。Long 类型。



说明

与 SlideID 属性不同，在演示文稿中添加或重新排列幻灯片时，Slide 对象的 SlideIndex 属性会改变。

因此，与使用具有幻灯片索引号的 Item 方法相比，使用具有幻灯片 ID 号的 FindBySlideID 方法是从 Slides 集合返回一个指定 Slide 对象的更可靠方法。



示例

本示例显示在第一个幻灯片放映窗口中当前放映幻灯片的索引号。



MsgBox SlideShowWindows(1).View.Slide.SlideIndex



SlideID 属性

请参阅 应用于 示例 特性

返回指定幻灯片的唯一 ID 号。只读。Long 类型。



说明

与 SlideIndex 属性不同，在演示文稿中添加或重新排列幻灯片时，Slide 对象的 SlideID 属性不会改变。

因此，与使用具有幻灯片索引号的 Item 方法相比，使用具有幻灯片 ID 号的 FindBySlideID 方法是从 Slides 集合返回一个指定 Slide 对象的更可靠方法。



示例

本示例示范如何检索 Slide 对象的唯一 ID 号，并使用此编号从 Slides 集合返回该 Slide 对象。



Set gslides = ActivePresentation.Slides



'Get slide ID

graphSlideID = gslides.Add(2, ppLayoutChart).SlideID

gslides.FindBySlideID(graphSlideID) _

    .SlideShowTransition.EntryEffect = _

    ppEffectCoverLeft      'Use ID to return specific slide