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

2025-04-15 21:02:07

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

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

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

4、在模块当中输入如下代码，然后运行Private Sub UserForm_Init坡纠课柩ialize()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 WithEnd Sub

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

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