在Excel中播放gif图片

9、直接复制如下代码：Sub 运行()Acti箪滹埘麽veSheet.WebBrowser1.Navigate ThisWorkbook.Path & "\实验" & "\GIF.gif"End SubSub 停止()ActiveSheet.WebBrowser1.Navigate ThisWorkbook.Path & "\实验" & "\0.jpg"End Sub