=====如何写一个自动关闭PPT的窗体=====

user_wfuvzzpk

Private Sub CommandButton1_Click()
Dim myPpt As PowerPoint.Application
Set myPpt = CreateObject("PowerPoint.Application")

myPpt.Quit
Set myPpt = Nothing
End Sub
这段代码是我在PPT里写的一个自动关闭功能的窗体.
但我这里所说的"关闭功能"是想在PPT放映的时候,假设这个PPT里有20屏或者更多,但是不论在哪一屏在被放映的时候都有一个小窗体显示在放映屏幕的右下角,以便我不想再放映的时候可以随时关闭这个PPT程序.
于是自己写了上面的代码,可是却不知道怎么把这个变成窗体,更不知道怎么能让这个小窗体可以在放映的时候显示在每一屏的右下角? 试了好久了,一直未果,PPT里的VBA和EXCEL里的编辑环境不太一样似乎! 而且我一运行写好的无错代码时,PPT里总是提示"该工程的宏已经被禁用......" 一头雾水呀 在线等 谢谢大家了

fvqpv48

大家一定要看到哇,帮我顶一下,这个问题有一定的代表性,而且PPT编程比较少

user_eatuz

睡前再关注一遍  希望大家看到

hm2510

看来这个版块大家不怎么关注哟?!
呵呵,继续等吧!

vickey97

把按钮做在母版中试试看。
我试了一下，不是停止放映，而是退出了PowerPoint

user_fprsf

对，我就要得是退出PowerPoint  
在母版里做？怎么在母版里做？
你说的母版是不是就是PPT的空白面板？
还有你实现在放映的时候每一屏的右就角都有一个小的窗体按钮出现吗？  在线等

user_ghroypuk

还是没有结果吗？ 期待大家的好消息

江蓠子

阿哈，弄明白了，弄明白了
谢谢了

user_jvzbf

在母版里通过简单的动作设置就可以解决的。