Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 70736|回复: 264

[VBA] Excel工作表+窗体VBA显示gif动画的5种方法

  [复制链接]
发表于 2008-3-7 11:20 | 显示全部楼层 |阅读模式
本帖最后由 爱疯 于 2012-7-6 19:36 编辑 <br /><br /><P>做这个的初衷是因为这个帖子9楼的言论,</P>
<P><A href="http://www.excelpx.com/forum.php?mod=viewthread&amp;tid=37257&amp;replyID=&amp;skin=1">http://www.excelpx.com/forum.php?mod=viewthread&amp;tid=37257&amp;replyID=&amp;skin=1</A></P>
<P>需要的控件已经在附件中。同时做了工作表内引用和窗体引用。例子5是借用了老罗的例子。<BR><BR>另外还谢谢八月版主帮忙解决了一些小问题。<BR><BR><BR><BR>[/hide]</P>
<P>1-3种方法引用的图片都不在excel内;第4,5种方法引用的图片在excel内。<BR><BR>个人觉得真正是显示gif的就方法1和2,3和4都只是引用处理后的gif图像,已经不能算是显示gif了。<BR>最值得推荐的方法是webBrowser方法。&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR><BR>1&nbsp;WebBrowser:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;引用外部甚至网络上任意格式的图片,包括gif,图片不需要经过处理,最容易掌握。<BR>webBrowser是标准控件,不需要额外引用。推荐。&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR><BR>2&nbsp;AniGif第三方控件&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;第三方控件,需要额外加载注册VBAniGIF.ocx,不需要转换gif图片。FileName属性设置为应用路径。<BR>本文件在Workbook_Open和Workbook_BeforeClose中加了自动注册和卸载的语句。<BR>如果手动注册,则可将这两句代码删除。&nbsp;&nbsp;<BR><BR>3&nbsp;ShockwaveFlash:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;需要用转换软件把gif图片转换为swf格式的flash文件。movie属性设置为flash引用路径。<BR>ShockwaveFlash是标准控件,一般都会有,不需要额外注册引用。<BR>不过个人觉得这已经变成flash的显示而不是gif显示了。&nbsp;&nbsp;<BR><BR>4&nbsp;API&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;需要用软件将gif分帧变成N张静态图片,然后逐帧插入到图像控件中,再利用时间控制器控制每幅图像的显示顺序和时间,达到动画的效果。<BR>如果gif的帧数多的话,真够呛,感觉这个方法最麻烦了,不推荐。<BR>同样感觉已经不是gif显示了,只能算是动画显示。<BR><BR>5&nbsp;WebBrowser+API&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;不用改图片格式,直接引用工作表内的图片,但是方法超级麻烦,有兴趣的朋友请看附件老罗的“在窗体中播GIF”&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR></P><BR>
<P align=right><FONT color=#000066>[此贴子已经被作者于2008-3-7 11:24:40编辑过]</FONT></P>

本帖子中包含更多资源

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

x
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2008-3-7 11:21 | 显示全部楼层

<p>谢谢学委,学习学习!</p><p>也让大家开开眼界!</p>
回复

使用道具 举报

发表于 2008-3-7 11:22 | 显示全部楼层

沙发没了,坐板凳上学习也不错[em01]
[此贴子已经被作者于2008-3-7 11:22:42编辑过]
回复

使用道具 举报

发表于 2008-3-7 11:23 | 显示全部楼层

<p>学委,学习来了</p>
回复

使用道具 举报

 楼主| 发表于 2008-3-7 11:37 | 显示全部楼层

转移到资料馆来,不然沉太快了。[em01]
回复

使用道具 举报

发表于 2008-3-7 11:52 | 显示全部楼层

窗体中的UserForm1.AniGif1没有找到![em06]
回复

使用道具 举报

发表于 2008-3-7 11:54 | 显示全部楼层

UserForm1.AniGif1没有找到![em06]
回复

使用道具 举报

发表于 2008-3-7 13:51 | 显示全部楼层

kk
回复

使用道具 举报

 楼主| 发表于 2008-3-7 14:37 | 显示全部楼层

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>hhzjxss</i>在2008-3-7 11:54:00的发言:</b><br/>UserForm1.AniGif1没有找到![em06]</div><p></p><p>[em06]我看了是有的,不知道为啥到雨版那里没了。。。</p><p>雨版勉为其难自己手动加一个。。。[em07][em15]</p>
回复

使用道具 举报

发表于 2008-3-9 08:58 | 显示全部楼层

学习
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 20:22 , Processed in 0.637893 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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