Question

PPT 显示VBA窗口的问题

我用PPT 上的VBA做了个上课提问用的宏，一个窗口上有数个控件，PPT在放映时，可以调出窗口，按下控件后，可以随机显示学生姓名，甚至对学生回答问题情况进行评价，然后隐藏窗口，教师继续讲解，需要提问时再次调出隐藏的窗口，此时窗口上的内容应该和隐藏前是一样的，也就是说上次提问时学生的姓名和评价应该还在窗口上。 现在的问题是，我在编写宏的PPT上运行时，功能和设想的一样，但是我在别的PPT上调用这个宏提问时，本来应该显示隐藏的窗口，结果都是变成了重新加载窗口，而不是显示隐藏的窗口。请高手指明问题原因所在，谢谢！
想提问时，右击鼠标，点“提问”调用宏。

第一次运行时显示的窗口，自动弹出所带的班级供选择。

选择好班级后点“开始摇号”开始提问，显示学生学号和姓名。

提问结束后，点提问器窗口上空白地方，隐藏窗口，教师继续讲解。

再次提问时，显示隐藏的窗口，内容和隐藏前是一样的。

再次点“开始摇号”，开始新的提问。

上面是在编写宏的PPT上运行得到的结果，但是在别的PPT上运行时，本来应该是出现倒数第二张的图，结果变成了正数第二张。
没有正规学过VB，看书自学的，隐藏窗口时用的“UserForm1.Hide”，显示窗口时用的“UserForm1.Show”。

有意思的是，我把编写有宏的PPT打开放在边上，再在别的PPT上运行程序就正常了。





Answer 1

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

Answer 2

一、采取措施，防止点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基本上是一样的原理，你按照这个思路试试看。

Answer 3

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