1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
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
5、用快捷键F5运行窗体，窗体中的GIF文件立即开始播放，如图
