在工作表上插入动画gif

Question

我有一个动画gif文件。

如何让这个动画出现在Sheet1上，然后在我的宏完成时关闭？

我尝试将gif添加为图片，然后添加webbrowser命令窗口和命令按钮。

我写了以下命令按钮代码。

Private Sub CommandButton1_Click()
    WebBrowser1.Navigate1 ("C:\Users\smorfett\Desktop\progress.gif")
End Sub

我得到了

  

＆＃39;对象不支持此属性或方法＆＃39;

Answer 1

我找到了解决方案......

Private Sub CommandButton1_Click()

WebBrowser1.Navigate "C:\Users\smorfett\Desktop\progress.gif"

End Sub

Answer 2

转到“视图”>“工具栏”>“控制工具箱” 激活设计模式 选择最后一个按钮（一个带锤子的按钮），然后选择Microsoft Web Browser 为图像画框 禁用设计模式和工具栏 将以下代码粘贴到VBA编辑器中：

Private Sub Worksheet_Activate（）WebBrowser1.Navigate“ X：complete path image.GIF” End Sub

来源： https://ccm.net/faq/1402-inserting-an-animated-gif-in-excel