VBA GIF动画生成组件，vb6制作GIF动画，录像

逍遥爱迪生

功能：GIF动画生成组件

在线升级、GIT项目地址：https://gitee.com/xiaoyaosoft/xi ... r/DLL/014XiaoYaoGif

第1步：#1注册dLL.cmd
第2步：EXCEL vba中引用：XiaoYaoGif.tlb
=================
第3步：调用代码
Dim gif1 As String: gif1 = ActiveWorkbook.Path & "\生成GIF2.gif"

  Dim P As String: P = ActiveWorkbook.Path & "\vb6测试代码\图片源\"
  Dim GIF As New GifLib
GIF.开始制作新GIF动画 gif1, 1000
  
  GIF.增加一个图片 P & "1.JPG", 1000
  GIF.增加一个图片 P & "2.JPG", 2000
  GIF.增加一个图片 P & "3.JPG", 3000
  GIF.增加一个图片 P & "4.JPG", 1000
  
  GIF.保存GIF动画
  MsgBox "ok"

逍遥爱迪生

升级到1.5.2版本：
支持图片格式转换为：gif/png,jpg
函数名称：SaveiImageAs
保存剪贴板图片：SaveClipboardImage

dongdonggege

感谢老师分享，我曾用VBA制作过播放、保存gif文件，做的不成熟。请看拙作：《窗体播放、逐帧保存gif文件》，https://club.excelhome.net/thread-1548344-1-1.html。
楼主要标注：
Dim gif1 As String: gif1 = ActiveWorkbook.Path & "\生成GIF2.gif" '生成的文件名
Dim P As String: P =ActiveWorkbook.Path & "\vb6测试代码\图片源\" '源文件
结果把我的GIF文件覆盖了。
还是谢谢老师的分享。

dongdonggege

除了合成gif文件，建议楼主再增加，gif拆开保存的程序。

perfect131

dongdonggege 发表于 2025-11-5 10:07
除了合成gif文件，建议楼主再增加，gif拆开保存的程序。

拆分 制作都可以纯vba啊

https://club.excelhome.net/forum ... amp;_dsign=3a7ebe7b
https://club.excelhome.net/threa ... tml?_dsign=9fc3d8d9
https://club.excelhome.net/threa ... tml?_dsign=0114d589

dongdonggege

perfect131 发表于 2025-11-5 12:32
拆分 制作都可以纯vba啊

https://club.excelhome.net/forum.php?mod=viewthread&tid=1676897&_dsig ...

拆分的用你的了，感谢。合成的我自己写的有。

逍遥爱迪生

dongdonggege 发表于 2025-11-5 10:07
除了合成gif文件，建议楼主再增加，gif拆开保存的程序。

搞了一天了，这个东西不支持透明度，麻烦呢。系统本身也可以创建gif，但是它对透明的png它又没办法。
有的变成黑了。
这种问题层出不穷啊。
固定大小的图片最简单了。