怎样使用VBA窗体中显示GIF动画？

2025-11-17 04:06:33

1、首先在开发工具中打开VBA编辑器

怎样使用VBA窗体中显示GIF动画？

2、在单元格区域当中输入一些内容作为例子

怎样使用VBA窗体中显示GIF动画？

3、在VBA编辑器中插入模块

怎样使用VBA窗体中显示GIF动画？

4、在模块当中输入如下代码，然后运行

Private Sub UserForm_Initialize()

WebBrowser1.Navigate "about:blank"
Dim paths As String
paths=ThisWorkbook.Path & "\andy.gif"
Do While WebBrowser1.Busy
    DoEvents
Loop
With Me.WebBrowser1.Document
    .Open
    .writeln "<HTML>"
    .writeln "<BODY scroll='no' oncontextmenu=self.event.returnValue=false>"
    .writeln "<div style='position:absolute; left: 0; top: 0'>"
    .writeln "<IMG SRC='" & paths & "' BORDER='0'>"
    .writeln "</BODY>"
   .writeln "</HTML>"
End With
End Sub

怎样使用VBA窗体中显示GIF动画？

5、用快捷键F5运行窗体，窗体中的GIF文件立即开始播放，如图

怎样使用VBA窗体中显示GIF动画？

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。