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

2025-10-03 10:40:28

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。