设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

1234下一页
返回列表 发新帖
查看: 14412|回复: 34
打印 上一主题 下一主题

用VBA做的知识问答PPT(2003版)

[复制链接]
跳转到指定楼层
1#
发表于 2008-8-11 19:25:44 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
这是用于投影仪跟观众互动节目用的PPT知识问答(PowerPoint2003),模版是这里下载的,自己加上题目跟VBA,由于PPT的动画没有倒计时功能,用一个个文本框加延时功能来做倒计时又不能重复,最后用了个笨办法实现,Sleep+DoEvents,反正15秒时间不是很长,要求时间也不用很准,只要差不多就可以,大家要是觉得时间跳得太快或太慢,请自行调节Sleep中的数字,如果有更好的方法请告诉我,(好像可以加自定义控件,不过我没有试),感觉在PPT编程里跟ACCESS中或VB中不一样,例如,边框的颜色还要在forecolor或backcolor前加上line,填充的还要加上fill以识区别,而在Access中好像直接用forecolor或backcolor就行了,而后面还不能直接引用颜色,像这样(forecolor=QBcolor(i))是不行的,还要加上.RGB,像这样(forecolor.rgb=QBcolor(i)),刚开始有点摸不着头脑,不过还好,慢慢从其帮助中找到.自己之前也从没接出个PPT的VBA,还以为跟其它VBA差不多一个样呢,哈哈,还好搞定了,以下是附件,大家看看吧,若有更好的方法,请留下你的妙笔

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2008-8-14 14:50:12 | 只看该作者
都没人顶,怎么设置回复才可下载呢?
3#
发表于 2008-8-16 21:06:49 | 只看该作者

ding

ding
4#
发表于 2008-8-16 21:08:42 | 只看该作者
下载后无法解压缩
5#
 楼主| 发表于 2008-8-17 17:11:03 | 只看该作者
可以啊,我试下载解压了,没有问题,可能是你的RAR软件版本不够高,或其它问题。
6#
 楼主| 发表于 2008-8-18 22:34:25 | 只看该作者
另外千万不要用2007版打开,不然会不一样.
7#
发表于 2008-9-22 19:26:20 | 只看该作者
ding
8#
发表于 2008-9-22 19:29:18 | 只看该作者
下载了不好用啊[:28]
9#
发表于 2008-12-9 19:17:13 | 只看该作者
kan  kan  kan
10#
发表于 2009-1-4 11:29:13 | 只看该作者
不错
谢谢分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 06:54 , Processed in 0.151725 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表