Excel批量嵌入Flash_MrBoomBa_1-9

lb_bn · 发表于 2009-12-8 12:52

代码：
Sub bbb()
Dim ipth$
ipth = ThisWorkbook.Path & "\MrBoomBa_ep"
For i = 1 To 28 * 9 Step 28
      ActiveSheet.OLEObjects.Add(ClassType:="ShockwaveFlash.ShockwaveFlash.9", _
            Left:=Cells(i, 3).Left, Top:=Cells(i, 3).Top, Width:=500, Height:=357).Select
      With Selection.Object
         .Movie = ipth & i \ 28 + 1 & ".swf"
         .EmbedMovie = True
      End With
      With Cells(i, 1)
         .Value = WorksheetFunction.Text(i \ 28 + 1, "[dbnum2]")
         .Font.Bold = True
         .Font.Color = vbBlue
      End With
Next
End Sub

Private Sub Workbook_Open()
ActiveWindow.ScrollRow = 1
End Sub

Excel文件：
http://www.namipan.com/d/MrBoomB ... 42dd5525c20824b9b00

原Flash文件:
http://www.namipan.com/d/MrBoomB ... d43a7cd799a81d89700

截图:

lb_bn · 发表于 2009-12-8 12:54

整个表的字体设为10号宋体，即可出现如图连接效果。
有很多属性可设，大家玩玩吧。

lb_bn · 发表于 2009-12-8 16:13

没有喜欢看Mr BoomBa的XD？？？

飞云楼主 · 发表于 2009-12-8 22:13

下载有点麻烦。
不过还是下了，谢谢分享。

lb_bn · 发表于 2009-12-9 12:23

纳米盘还是很流行吧，我看它的上传和下载速度都不错，只是要装一下下载软件。
谢谢楼上支持。

lb_bn · 发表于 2009-12-9 12:50

多谢赵老师支持。

jifuxue · 发表于 2009-12-26 13:28

好贴！学习了

lb_bn · 发表于 2009-12-26 21:00

Sub bbb()
Dim ipth$
ipth = ThisWorkbook.Path & "\MrBoomBa_ep"                                                                            'Falsh文件路径及名称的相同部分
For i = 1 To 28 * 9 Step 28                                                                                                                '9个文件要加，其它只是排版的算法
      ActiveSheet.OLEObjects.Add(ClassType:="ShockwaveFlash.ShockwaveFlash.9", _    '加入Falsh并设置位置(left,top)，调整宽高(width,height)
            Left:=Cells(i, 3).Left, Top:=Cells(i, 3).Top, Width:=500, Height:=357).Select
      With Selection.Object                                                                                                                   'Falsh文件的全路径(即包含名称)
         .Movie = ipth & i \ 28 + 1 & ".swf"
         .EmbedMovie = True                                                                                                                   '让Falsh嵌入Excel文件中，这样即可放到其它电脑里也能放。
      End With
      With Cells(i, 1)                                                                                                                                  '这个是插入Flash的序号，这里是此Flash系列的集数序号。
         .Value = WorksheetFunction.Text(i \ 28 + 1, "[dbnum2]")
         .Font.Bold = True
         .Font.Color = vbBlue
      End With
Next
End Sub

Private Sub Workbook_Open()
ActiveWindow.ScrollRow = 1                                                                                                             '这个不要也可。
End Sub

应网友要求注释一下。

[ 本帖最后由 lb_bn 于 2009-12-26 21:01 编辑 ]

Xxiaoaojianghu · 发表于 2009-12-26 21:14

留个脚印！！！！！！！！！！

zzk386 · 发表于 2009-12-27 10:42

菜鸟根据楼主的程序做了,和更改了路径和文件名,还是没显示图像,请帮忙看看是哪里的问题?

[ 本帖最后由 zzk386 于 2009-12-27 11:49 编辑 ]

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

[分享] Excel批量嵌入Flash_MrBoomBa_1-9

回复 4楼飞云楼主的帖子

回复 6楼赵国辉的帖子

[分享] Excel批量嵌入Flash_MrBoomBa_1-9

回复 4楼 飞云楼主 的帖子

回复 6楼 赵国辉 的帖子

回复 4楼飞云楼主的帖子

回复 6楼赵国辉的帖子