Times 讲解 11
在Excel中运行动图
松开鼠标后，会弹出：指定 宏对话框。 1. 这里直接点击想要赋予 按钮的命令 2. 选好命令后点击确定
Times 讲解 12
在Excel中运行动图
1. 同样的方法，把两个按 钮都赋予相应的命令。 2. 双击按钮上的字，进入 编辑状态，可以改变按 钮的名称。
Times 讲解 4
在Excel中运行动图
• 在弹出的目录界面分别找 到以下三个注册表信息， 将右侧 Compatibility Flags值都改为十六位0。
HKEY_LOCAL_MACHINE\SOFTWARE \Microsoft\Office\ClickToRun\REGISTRY\ MACHINE\Software\Microsoft\Office\16 .0\Common\COMCompatibility\{8856F9 61-340A-11D0-A96B-00C04FD705A2} HKEY_LOCAL_MACHINE\SOFTWARE \Microsoft\Internet Explorer\ActiveX Compatibility\{8856F961-340A-11D0A96B-00C04FD705A2} HKEY_LOCAL_MACHINE\SOFTWARE \WOW6432Node\Microsoft\Internet Explorer\ActiveX Compatibility\{8856F961-340A-11D0A96B-00C04FD705A2}
在 Excel 中 实现 动态图播放
Times 讲解
在Excel中运行动图
准备工作： 1. 一张动态gif图片。 2. 一张普通的jpg图片。 3. 一个启用宏的表格。
Times 讲解 1
在Excel中运行动图
开始制作： 1. 调出开发工具选项卡。 2. 点击插入。 3. 点击右下角“其他选项”
• 单击后拖动鼠标，控制 Web控件的大小。
Times 讲解 6
在Excel中运行动图
1. 通过快捷键：Alt+F11， 调出VBA界面。 2. 点击插入选项，点击 “模块”。 3. 点击后会插入“模块1”。
Times 讲解 7
在Excel中运行动图
1. 双击模块1，右侧会出现 空白界面。 2. 把一下代码复制到空白 位置（直接全选复制， 就会变成右侧所示）。
Times 讲解 15
END
Times 讲解 2
在Excel中运行动图
• 在弹出的其他控件选项中， 找到“Microsoft Web Browser”
• 点击确定。
Times 讲解 3
在Excel中运行动图
1. 如果电脑没有设置过， 会提示无法插入ActiveX 控件。
为了正常运行，请按照以下 步骤设置：
• 在键盘按组合键：Win+R， 弹出”运行”对话框。 • 在弹出的位置输入： regedit，点击确定（如果 提示是否对电脑进行修改， 点击确定）。
在Excel中运行动图
1. 这时点击开发工具选项 卡的宏，会抬出宏对话 框
2. 对话框中的“停 止”“运行”就是刚刚 在VBA中创建的两个命 令。
Times 讲解 10
在Excel中运行动图
为了方便，我们为两个命令 创建两个按钮： 1. 点击插入。 2. 点击表单控件中的“按 钮”。通过拖动鼠标， 创建按钮。
Sub 运行() ActiveSheet.WebBrowser1.Navi gate ThisWorkbook.Path & "\实验" & "\GIF.gif" End Sub Sub 停止() ActiveSheet.WebBrowser1.Navi gate ThisWorkbook.Path & "\实验" & "\0.jpg" End Sub
Times 讲解 13
在Excel中运行动图
1. 这里按照命令，重命名 了按钮名。 2. 点击“开始播放按钮”， 会发现事先找好的gif图 已经在控件里还是播放。
Times 讲解 14
在Excel中运行动图
1. 点击停止，会把实现选 择好的jpg 图片显示在插 件位置。
到这里一个可以播放gif的 Excel文件已经做完了。
Times 讲解 8
在Excel中运行动图
这里简单解释一下代码意思： 1. 这里是获取表格所在路 径பைடு நூலகம் 2. 这里是表格所在目录下 的照片照片存放位置，
Sub 运行() ActiveSheet.WebBrowser1.Navigate ThisWorkbook.Path & "\实验" & "\GIF.gif" End Sub
Sub 停止() ActiveSheet.WebBrowser1.Navigate ThisWorkbook.Path & "\实验" & "\0.jpg" End Sub
3. 最后是照片名称及后缀。
大家在这里只要会修改照片 的文件夹名称及照片名称即 可。修改后直接关闭VBA界 面。
Times 讲解 9
通过搜索{8856F961-340A-11D0A96B-00C04FD705A2}找到这些值的. 将右侧 Compatibility Flags值400改为 十六位0 Times 讲解 5
1. 但这里通过搜索比较快， 通过快捷键：Ctrl+F 查 找。
在Excel中运行动图
更改注册表后，已经可以插 入：“Microsoft Web Browser”