当前位置：首页 → 问答吧 → 自动运行与加载宏的问题（PPT中VBA的小结，含倒计时器）

自动运行与加载宏的问题（PPT中VBA的小结，含倒计时器）

时间：2004-03-30

来源：互联网

　　这是我用VBA的Timer制做的倒计时提醒加载宏： VOLCKklA.rar (15.83 KB)

这是最新用Shape做的，注意事项在片子里。你得自己修饰片子。时钟与剩余时间同时显示。

　　关于加载不上：我在PowerpointXP中做了测试，问题OfficeXP的安全性默认为“高”，使用者没有把安全性设置成"中"，这是个低级问题,我们都没注意到。

　　简单的运行方法：改变安全性，设置为"中"，双击该加载宏是。

　　去不掉加载宏菜单条的问题：从工具\加载宏中选择卸载，最好删除，重启Powerpoint就没有了，这不会删除加载宏文件。另外点加载按钮可以从任何位置来加载加载宏，那怕是桌面（对陌生人来说太E了）。

　　PPT中VBA自动运行的问题：在PPT中没有自动运行宏的功能，编辑PPT文件是设计模式，可通过按钮在播放时点击执行。

　　定时运行的问题：PPT没有象Excel中那样的Ontime函数，不必费心让它每隔多长去执行什么命令。不过你可以根据这个倒计时的原理来曲折实现，方法吗？先卖个关子，大家先想想吧。查看PPA加载宏源代码的方法如下：1. 确保PowerPoint 没有启动，点击[开始]\运行\regedit.exe，点击[确定]（运行注册表）2. 在注册表中找到下列键值：HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\PowerPoint\Options用你使用的版本替代粗体8.0（XP为10）3. 在右边名称窗中右击：新建\双字节值，命名为“DebugAddins”，双击新建的DebugAddins，出现编辑双字节值的窗口，设置数值数据为1，关闭注册表。4. 启动PowerPoint。5. 按Alt+F11启动Visual Basic Editor，打开工程资源管理器，你将看到加载宏的资源列表，双击任何项目，可查看源码，如果工程有密码保护，将弹出密码确认框。你也可以直接双击PAA文件，再在VBE中查看源码。

[此贴子已经被作者于2005-8-2 10:33:41编辑过]

附件

26RpkRMi.rar(14.92 KB)

2004-3-30 21:08, 下载次数: 802

[原创]一个倒计时加载宏

q5HyT1uJ.rar(16.87 KB)

2005-7-28 10:57, 下载次数: 393

[原创]关于PPT自动运行与加载宏的问题（对PPT中VBA的一个小结）

作者: wenz 发布时间: 2004-03-30

　　有关PPT中定时的问题，想作更深，可参见dispbbs.asp?BoardID=24&ID=18920 PPT Add-in 提供多用途的（老外的）　　本站的ngcg可做了不少这方面的尝试，大家可以参考：　　http://club.excelhome.net/viewthread.php?tid=104662　　http://club.excelhome.net/viewthread.php?tid=105286

即时显示日期时间的作品： hqj2X5HP.rar (10.75 KB)

(用母板做)必要说明：日期与时间显示在母板上，所以每页都有，你可以修改母板，但第一，不要去年显示日期与时间的那个文本框。第二，计时一定要点击“开始放映”，你可以修改此按钮，但别忘了给它添加动作：运行宏“Start”第三，停止时钟和播放，一定点击“结束放映”，否则代码一直运行，可能导致系统死机。第四，“结束放映”按钮，你可以修改此按钮，但别忘了把它放在最后一页上，并给它添加动作：运行宏“Stopit”。倡议：共建家园，期待高手。　　这个版块原是一个很冷淡的园子，经过大家的经营，现在繁荣了不少。其实大家用Powerpoint的比用Flash等的人多的多，大家都希望用好这个简单易用的软件，但微软的东西，我们能用到其功能的多少，真期望大家对此有较深的研究，把自己的新知或经验拿出来与大家共享。正如这里的Word版，原来也是不景气的，但渐渐地有了“守柔、七叶一枝梅、陈秀峰、如意、konggs”等一些知深的行家，这里也有象“好吃饭、多媒体”等几个新秀出现，期待他们成为高手，也期待有更多的新秀让大家敬仰。　　我擦亮眼睛期待着。

[此贴子已经被作者于2005-7-29 11:00:48编辑过]

作者: wenz 发布时间: 2004-03-31

不知为何，我在2002版本中加载不上？

作者: cxffxc 发布时间: 2004-04-01

在2000下做的,我没有2002.代码未加密,可自己修改一下.

作者: wenz 发布时间: 2004-04-01

怎么用呀!我很菜

作者: vulnerable 发布时间: 2004-04-07

在Powerpoint2000的环境中运行双击可加载，在帮助菜单右侧是否多了个[设置并播放]，如果没有就没有加载，可拷入以下目录：这是Win2000的环境document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />再从Powerpoint2000的工具菜单、加载宏中添加。

[此贴子已经被作者于2004-4-15 20:38:08编辑过]

附件

ryOegU2Y.bmp(18.93 KB)

2004-4-8 16:04

[原创]一个倒计时加载宏

作者: wenz 发布时间: 2004-04-08

用Powerpoint2000运行,在帮助菜单右出现一个设置并播放的菜单我刚下载了，运行后如图：document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

作者: wenz 发布时间: 2004-04-15

有何用处呀

作者: yigepure 发布时间: 2004-04-20

上课时,它随时告诉你还有多少时间,便于控制进度呀

作者: wenz 发布时间: 2004-04-20

好，下了。谢谢。

作者: yigepure 发布时间: 2004-04-20

以下是引用cxffxc在2004-4-1 8:00:00的发言：不知为何，我在2002版本中加载不上？

我在Powerpoint2002中做了测试,问题在于使用者没有把安全性设置成"中",因为2002中安全性默认设置为"高".

作者: wenz 发布时间: 2004-04-20

请教wenz：

是否可以公开VBA代码？我需要计秒，但是设置最少5分钟，显示最少5秒钟……

重酬！拜谢！！//bow

作者: aazicat 发布时间: 2004-07-03

源码在这

dbEZVFen.rar (33.82 KB)

作者: wenz 发布时间: 2004-07-03

我用的是繁體Xp，看不到代碼，可以列出嗎？

作者: Emily 发布时间: 2004-07-04

请问版主，如果我把其中的中文改成英文，能否正常显示，因为有一个窗体，一个模块，代码较多，要么我从VBE中导出来传上来。

作者: wenz 发布时间: 2004-07-05

如果可以的話，導出會好些

作者: Emily 发布时间: 2004-07-05

TjkUHjkl.rar (3.92 KB)

作者: wenz 发布时间: 2004-07-06

研究中

Thanks

作者: Emily 发布时间: 2004-07-06

谢谢，这东东我找了很久了，真是踏破铁鞋无觅处。

作者: 多媒体发布时间: 2004-08-27

我把代码改动以后如何生成新的加载宏啊？

作者: qdofficer 发布时间: 2004-08-27

好东西，谢谢。

PPT2002中能用，只要把它拷贝到AddIns目录内就行了。如下图（我的系统是win2k）document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

[此贴子已经被作者于2004-9-7 13:43:17编辑过]

附件

o96vNIAd.jpg(32.41 KB)

2004-8-29 13:39

作者: 吃好饭发布时间: 2004-08-29

还有一个问题需要改进，就是取消此加载宏后，菜单中的“设置并播放”仍然存在，但已经失去作用。

最好是在取消加载宏后，菜单中的设置也自动取消。

作者: 吃好饭发布时间: 2004-09-07

因为做了一个总结，没有另立新帖，所以把它推上来。

作者: wenz 发布时间: 2005-07-28

我用的是XP2003好像不能自动运行啊，还是要进到编辑器里手动运行才可以

而且到了时间也不能自动退出，只是提示时间到了。

作者: iceboy 发布时间: 2005-08-02

引用:

以下是引用iceboy在2005-8-2 21:44:00的发言：

我用的是XP2003好像不能自动运行啊，还是要进到编辑器里手动运行才可以

而且到了时间也不能自动退出，只是提示时间到了。

前面多已说明，为了让大家看到代码，我没做成加载宏，你打开后另存为加载宏，扩展名为.ppa，然后从工具/加载宏/添加，选择它的文件地址，确定。从工具/宏/安全性，改变安全级为“中”。关闭程序。重新运行程序，就有自动运行的菜单项了。播放时，从菜单中选择“播放”，见7楼图，即可播放，任何时候，双击窗体就可退出倒计时模式。

作者: wenz 发布时间: 2005-08-03

如何能让倒计时器自动隐藏在屏幕外呢？鼠标移到隐藏处时自动显示。

作者: sxljh08 发布时间: 2005-10-30

现在不是完全隐藏，请改代码。

作者: sxljh08 发布时间: 2005-10-30

不错

作者: cxffxc 发布时间: 2005-10-30

多谢！下载学习。

作者: york888 发布时间: 2005-10-31

不能加载？office2003?,请楼主指教？

作者: york888 发布时间: 2005-10-31