精美的VBA时钟集合

JLF2003

参考大师的作品插入控件程序
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

[ 本帖最后由 JLF2003 于 2011-6-24 21:55 编辑 ]

opel-wong

看了一下，相当不错．给力，支持下．

WXLSUNWIN

没有代码，好象复制过去，不太能用。

litong999

不错,是很不错!用起来也方便

cwmxl

太好了，楼主是有心人。

gsjjlm

不错,是很不错!用起来也方便

hxs326

很优秀的东西，大赞楼主

liucqa

好东西，不错

wychao_1979

谢谢你，收藏了。

byhyxb

谢谢楼主分享!