在Excel中运行GIF图片

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