【无极作品】VBA 3d动画演示

无极 发表于: 2008-6-02 09:19 来源: 扑奔PPT网

pants 发表于 2008-6-02 09:24:17

谢谢！终于坐上沙发了，很美的！

rixin2008 发表于 2008-6-02 09:31:37

看不了是什么问题？求楼主解决！

爱ppt的牛 发表于 2008-6-02 09:41:57

看不到。我已经启动宏了，安全性也降低了。郁闷。

pants 发表于 2008-6-02 09:42:28

我也看不了，

皇城根下 发表于 2008-6-02 09:57:43

我也看不了。不知道是怎么回事。打开还要密码

无极 发表于 2008-6-02 10:09:10

因为用到了DX，如果看不了就需要检查你的电脑是否支持3D，是否安装了DirectX 8.0及以上版本。否则是看不到效果的，例如我现在正使用的单位电脑就是这样，所以就贴不上图！

无极写这个东西，不是为了别出心裁，只是想告诉那些对PPT存在偏见的朋友，PPT本身有局限性，每个软件都有它的局限性，但PPT有VBA可以无限弥补它的不足，其他软件未必有，虽然Flash有AS语言，但没有学过算法朋友，想写出炫人效果的代码，几乎是不可能的。学习VBA并以此为起点，进而学习VBS，JS，VB，Dephi甚至VC都提供了坚实的基础。

代码来源于我三年前学习DX时所写的一个VB示例（记不清是我的还是别人，就当是我的吧），昨天把它移植到了VBA中，感觉效果不错，就发上来作为礼物送给扑奔和扑奔上的朋友们。

看不到效果的朋友，对不起了，别怪我，不是我的错。

Xiao_0 发表于 2008-6-02 10:43:49

我的机器有DX9.0，可还是看不到呀。
提示如图

1.jpg

无极 发表于 2008-6-02 10:49:23

看来问题还不小，我把密码公布了吧！懂VBA的朋友自己调试一下。
密码：无极之风

给大家添麻烦了，无极深感歉意。

爱ppt的牛 发表于 2008-6-02 11:04:06

没事的，大家都会理解的，谢谢你的作品。用VB经常会出现这些问题的。

无极 发表于 2008-6-02 14:00:50

刚有时间检查了一下，竟然是我犯了个低级错误。实在对不起大家。
代码中用到了一个微软控件：Ietimer，这是一个定时器，原本在移植的时候想到用API函数SetTimer和StopTimer和回调函数TimerPro，但考虑到兼容PPT07（因为它不支持回调），所以才决定用微软的这个控件。
可能大多数的朋友的系统中都没有安装这个控件。
下面把控件包发布在下面，把文件解压缩，然后点击“注册”文件即可。如果你的系统目录不是默认为c:\windows\，请自行修改注册文件中的路径。

30.4 KB, 下载次数: 100)

amwyq 发表于 2008-6-02 14:52:06

看到一个窗体，没有别的。。。。

无极 发表于 2008-6-02 15:22:41

密码我已经公布了，你自己调试一下。

thpatty 发表于 2008-6-02 17:27:37

谢谢分享啊。多谢。

dragonlcy 发表于 2008-6-03 21:26:49

首先谢谢无极的分享,但我这还是看不到.

 

wososowo 发表于 2008-6-03 23:22:47

哈哈，楼主的文件总共才不到40k,，还害得这帮小鬼瞎忙活一通。
3d能那么小吗？

无极 发表于 2008-6-04 08:09:53

出现这样的提示，可能你的系统安装的目录不是在C:\windows\，你可以自己修改批处理中的目录。

无极 发表于 2008-6-04 08:13:24

也难怪你怀疑了，不怪你的，出现了这么多的问题。看来回去把代码再重新写一写，换掉那个该死的控件吧，改用API算了，不过改后不支持PPT07。

netcfg 发表于 2008-6-05 02:15:56

不错不错。好东东啊

bigyoung 发表于 2008-6-12 11:39:25

支持,谢楼主

busy99 发表于 2008-7-01 18:44:18

楼主一番好意，可惜我看不见，解释半天也没看明白，看来差距还是太大阿