如何在vba显示GIF动画图片

2016年8月10日 作者： 来源：

如果希望在Excel中显示GIF格式的动画图片，可以使用AniGif控件。
步骤1，在工作表中单击菜单“视图”→“工具栏”→“控件工具箱”→“其他控件”，选择“VBAniGIF. AniGif”后在工作表中拖动添加AniGif控件。
如果“其他控件”中没有该控件，那么需要对该控件进行注册。AniGif控件的文件名为VBAniGIF.OCX，也可以在工作表中单击菜单“视图”→“工具栏”→“控件工具箱”→“其他控件”，选择“注册自定义控件”，在显示的对话框中选择VBAniGIF.OCX文件进行注册。
步骤2，在设计模式下右键单击AniGif控件，选择“属性”，设置AniGif控件的Filename属性为CIF图片所在的路径。
可以使用代码设置AniGif控件的Filename属性，如下面的代码所示。
#001  Private Sub Workbook_Open()
#002      Sheet1.AniGif1.Filename = ThisWorkbook.Path & "\001.gif"
#003  End Sub
代码解析：
工作簿打开时将AniGif控件的Filename属性设置为同一目录中的“001.gif”文件。
如果该控件被标识为初始化不安全时，Office程序不加载或激活未被标志为初始化安全的ActiveX控件。
解决此问题的方法是更改Office程序处理ActiveX组件的方式，需要对注册表进行修改。也可以使用以下代码修改注册表：
#001  Sub RegWriteProc()
#002      Dim WshShell
#003      Set WshShell = CreateObject("Wscript.Shell")
#004      WshShell.RegWrite "HKCU\Software\Microsoft\Office\Common\Security\UFIControls", 1, "REG_DWORD"
#005      WshShell.RegWrite "HKCU\Software\Microsoft\VBA\Security\LoadControlsInForms", 1, "REG_DWORD"
#006      Set WshShell = Nothing
#007  End Sub
代码解析：
RegWriteProc过程修改注册表设置。第4行代码将UFIControls子项设置为1（最不安全）。第5行代码将LoadControlsInForms子项设置为1（最不安全）。退出设计模式后，将在工作表中显示GIF动画图片。