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文件立即开始播放，如图
