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 方法：用于切换指定幻灯片。
powerpoint 学习笔记： http://www.rdpslides.com/pptlive/index.html

一、采取措施，防止点X按钮的时候卸载窗体，方法可以接管窗体的QueryClose事件，代码是隐藏窗体，返回不许关闭，我的窗体是这么写的：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = True
    Me.Hide
End Sub

二、你激活的按钮不要去重新加载窗体，直接显示即可，例如我的代码是这样的：

Sub xxx()
    AllSheetForm.Show
End Sub

说明，我以上是EXCEL中的代码，不过我相信PPT基本上是一样的原理，你按照这个思路试试看。

方便的话，传带宏的PPT来看看