user_wfuvzzpk 发表于 2016-4-12 13:21:01

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

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 发表于 2016-4-12 14:34:23

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

user_eatuz 发表于 2016-4-12 14:54:29

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

hm2510 发表于 2016-4-12 15:06:37

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

vickey97 发表于 2016-4-12 15:25:19

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

user_fprsf 发表于 2016-4-12 17:20:23

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

user_ghroypuk 发表于 2016-4-12 17:28:45

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

江蓠子 发表于 2016-4-12 17:35:18

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

user_jvzbf 发表于 2016-4-12 17:55:42

在母版里通过简单的动作设置就可以解决的。
页: [1]
查看完整版本: =====如何写一个自动关闭PPT的窗体=====