设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1638|回复: 3
打印 上一主题 下一主题

[基础应用] [原创]自动插入SWF文件到工作表的代码

[复制链接]
跳转到指定楼层
1#
发表于 2008-10-3 11:34:23 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
手动插入FLASH到EXCEL操作比较烦琐,且容易出错.
以下这段代码简化了操作,只是运行完毕后,FLASH并不会自动播放,需要手工点击 退出设计模式 FLASH才会播放.
因无法用VBA代码控制自动退出设计模式,那位大大有空再研究一下,帮忙写一个ADDINS出来.


Sub InsertSWF()
Dim Fp
Dim Swf As String
Fp = Application.GetOpenFilename("Flash file,*.swf", , "Select Flash Movie", , False)
If Fp = False Then Exit Sub
    ActiveSheet.OLEObjects.Add(ClassType:="ShockwaveFlash.ShockwaveFlash.9", _
        Link:=False, DisplayAsIcon:=False, Left:=20, Top:=20, Width:= _
        450, Height:=300).Select
        
  Swf = Selection.Name
  
  ActiveSheet.OLEObjects(Swf).Object.EmbedMovie = True
  ActiveSheet.OLEObjects(Swf).Object.Menu = False
  ActiveSheet.OLEObjects(Swf).Object.Movie = Fp
  
  Range("D8").Select
Application.CommandBars("Exit Design Mode").Visible = True
Application.CommandBars("Exit Design Mode").Controls(1).Execute
End Sub
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2008-10-3 14:11:53 | 只看该作者
学习一下!! 谢谢分享

点击这里给我发消息

3#
发表于 2008-10-4 09:14:40 | 只看该作者
谢谢 方漠 兄的分享!
4#
发表于 2008-11-19 09:04:44 | 只看该作者
谢谢分享![:50]
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-14 10:41 , Processed in 0.110845 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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