excel中播放.avi .mp3 .gif的方法

lllllllll · 发表于 2008-3-7 11:18

1 打开excel 视图>工具栏>控件工具箱(制作动画的工具坏了这里就不出动画了)

2 点击工具栏最下面的"其它控件" 添加microsoft Web 浏览器

3 打开vbe 添加模块复制以下代码

Sub xx()
Dim m$
Sheets("sheet1").WebBrowser1.Navigate ThisWorkbook.Path & "\a.avi"
End Sub

4 在excel的同目录下放置个.avi的视频(示例中的视频名字为 a.avi 自己根据实际修改)

5 执行宏xx

一剑惊心 · 发表于 2008-3-7 11:19

学习一下

hhzjxss · 发表于 2008-3-7 11:21

谢谢分享，楼主的头像跟不看不看一样，是不是他的.....

lllllllll · 发表于 2008-3-7 11:22

ThisWorkbook.Path 也可以用指定的文件位置代替

.avi 也可以用变量替代

.avi .mp3 .gif ... 都可以成功运行

lllllllll · 发表于 2008-3-7 11:25

雨版弄个添加添加microsoft Web 浏览器的动画吧偶的不知怎么不能用了

hhzjxss · 发表于 2008-3-8 14:18

QUOTE:

以下是引用lllllllll在2008-3-7 11:25:00的发言：
雨版弄个添加添加microsoft Web 浏览器的动画吧偶的不知怎么不能用了

做了一个网页上的视频的：

scDqNF5e.rar (107.42 KB, 下载次数: 54)

明天不上网 · 发表于 2008-5-22 23:05

[em01]

luxueyan2008 · 发表于 2008-5-23 12:21

好东西啊

wayy · 发表于 2008-5-23 12:24

好东西，学习了。

BAIXINGR · 发表于 2008-5-23 12:25

学习一下

		自动登录	找回密码
密码			注册

[分享] excel中播放.avi .mp3 .gif的方法