在Excel中播放gif图片

1

2

3

4

5

6、图片中的注册表分别为：

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Microsoft\Office\16.0\Common\COMCompatibility\{8856F961-340A-11D0-A96B-00C04FD705A2}

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{8856F961-340A-11D0-A96B-00C04FD705A2}

HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Internet Explorer\ActiveX Compatibility\{8856F961-340A-11D0-A96B-00C04FD705A2}

快捷搜索：

{8856F961-340A-11D0-A96B-00C04FD705A2}

7

8

9、直接复制如下代码：

Sub 运行()

ActiveSheet.WebBrowser1.Navigate ThisWorkbook.Path & "\实验" & "\GIF.gif"

End Sub

Sub 停止()

ActiveSheet.WebBrowser1.Navigate ThisWorkbook.Path & "\实验" & "\0.jpg"

End Sub

10

11

12

13

14

15

16

17