VBA代码从Excel导出动画GIF

Question

通过以下用Excel编写的简单代码：

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Sub start()
dt = 5 / 100
For t = 0 To 5 Step dt
Cells(1, 2) = t
Sleep (1000 * dt)
DoEvents
Next t
End Sub

录制屏幕，我得到以下信息：

animation.mp4

是否可以通过VBA直接从Excel中导出动画GIF？

谢谢！

Answer 1

GIF规范看起来并不难。实际上，有个家伙说在VBA中实现它很容易。如果您有时间并且正在为学习或娱乐而编码，那么我会尝试这样做。如果您遇到困难，请尝试下一个建议。

从您的代码中调用第三方工具 使用Gifsicle这样的免费工具为您完成这项工作（下载Windows端口）。在您的代码中，是时候创建生成的GIF而不是类似的

调用CreateGif（“ result.gif”，“ input1.gif”，“ input2.gif”，“ input3.gif”）

您将在外部调用.exe工具，例如：

调用Shell（“ C：\ path \ to \ gifsicle.exe input1.gif input2.gif input3.gif> result.gif”）

请注意，您可能需要弄乱引号路径并通常正确构建命令行（如果输入GIF的数量可变，则将使用循环）。