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

hacker85 · 发表于 2010-1-28 20:33

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里总是提示"该工程的宏已经被禁用......" 一头雾水呀在线等谢谢大家了

hacker85 · 发表于 2010-1-28 20:42

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

hacker85 · 发表于 2010-1-28 20:51

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

hacker85 · 发表于 2010-1-28 21:33

看来这个版块大家不怎么关注哟?!

呵呵,继续等吧!

wostou · 发表于 2010-1-28 21:47

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

hacker85 · 发表于 2010-1-29 08:02

对，我就要得是退出PowerPoint
在母版里做？怎么在母版里做？

你说的母版是不是就是PPT的空白面板？

还有你实现在放映的时候每一屏的右就角都有一个小的窗体按钮出现吗？在线等

[ 本帖最后由 hacker85 于 2010-1-29 08:04 编辑 ]

hacker85 · 发表于 2010-1-29 08:33

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

hacker85 · 发表于 2010-1-29 08:45

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

ly27ssh · 发表于 2010-1-29 12:06

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

		自动登录	找回密码
密码			免费注册

[求助] =====如何写一个自动关闭PPT的窗体=====