ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2852|回复: 14

【原创】GifGifGif小伙伴——GifPartner

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-11-23 20:19 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 ggmmlol 于 2018-11-24 17:15 编辑

GifGifGif小伙伴——GifPartner
简介:
GifPartner,是一个Excel加载宏格式的辅助小工具,能够给著名的gif动画录制软件GifGifGif增加贴心的“窗口录制”功能。

对于GifGifGif,经常来ExcelHome论坛逛的朋友都有了解,是一款非常实用的录制屏幕图像为gif动画的小软件,它录制的gif文件,在保证清晰度的条件下,其体积也非常小。
但GifGifGif有一个小缺点:没有“窗口录制”的选项,不能够以选定窗口的方式快速定位录屏的位置和大小。
而它提供的框选屏幕范围的方式,也是在把屏幕背景变为不透明的白色状态下进行,同样不方便选定需要的录制范围。
我以往都是先选定一个大致的范围,然后调整需要录制的窗口的位置、大小,去适应它的录制范围。但是,对于一些不能够调整大小的窗口,就无论如何也很难让两者快速准确地吻合了!
因此,我也一直想找一款能达到同样效果而又方便使用的替代软件。但是很无奈,即使在各种录屏软件层出不穷的今天,这款在十多年前就不再更新的小软件,其录制的效果(gif文件的图像清晰度与体积比),仍无出其右者。所以只好一直将就下来。

后来,我就想,与其去东觅西寻,何不想办法自己给他加上一个“窗口录制”的功能呢?

经过几天的折腾,终于达到了想要的效果,现在分享给大家。我给他英文命名为GifPartner,中文名称叫Gif小伙伴。当然,根据你的取向,你也可以把他(她)的名字叫做 “Gif好搭档”、“Gif小闺蜜”、“Gif小甜心”,或者“3G好基友”等等(^_^)

附件中,把GifGifGif软件也一并打包带上了。
使用方法很简单:
把它解压到一个目标文件夹里,然后把其中的加载宏文件剪切到Excel默认的加载宏文件夹里,打开Excel程序,从选项或菜单中加载它,然后为加载宏的宏命令手动添加一个按钮,就可以使用了。初次使用时,会提示你选择GifGifGif文件夹的位置,并会保存相关信息,下一次只要你的GifGifGif程序文件没有被挪动或删除,GifPartner都可以自动为你打开它、并把它的录制范围设置为你指定的窗口范围。

GifPartner.gif

GifPartner.rar (151.84 KB, 下载次数: 435)







评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-11-24 09:12 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
谢谢老师分享,我的win7 32位+EXCEL 2007   出错了
1124001.gif

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-11-24 09:31 | 显示全部楼层
02761752696 发表于 2018-11-24 09:12
谢谢老师分享,我的win7 32位+EXCEL 2007   出错了

谢谢反馈Bug。


ByVal lpEnumFunc As LongPtr
改成:
ByVal lpEnumFunc As Long
然后按VBA编辑器窗口的保存按钮保存一下代码,应该就好了。

TA的精华主题

TA的得分主题

发表于 2018-11-24 10:29 | 显示全部楼层
ggmmlol 发表于 2018-11-24 09:31
谢谢反馈Bug。


您好老师,这一句改了
Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

提示这个,我不懂API  ,不知道原因
1124002.jpg

TA的精华主题

TA的得分主题

发表于 2018-11-24 10:31 | 显示全部楼层
ggmmlol 发表于 2018-11-24 09:31
谢谢反馈Bug。


老师您好,我不懂API  ,改了又提示错误
您再看看
1124002.jpg

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-11-24 17:20 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
感谢02761752696坛友反馈Bug和帮助测试。
现在,经过在32位的Excel 2007和64位的Excel 2016上分别测试,都能够正常运行了。附件已经在1楼更新。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-11-24 17:55 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 ggmmlol 于 2018-11-24 17:57 编辑

再详细说明一下用GifPartner捕获窗体的关键点:在捕捉一个窗口的过程中,需要用鼠标左键两次单击“标靶”。或者说,需要完成一次单击 加上一次拖放 。

第一次单击,相当于一个“预备”动作,这时“标靶”已经能够在图标范围内跟随鼠标移动。

第二次,仍然要在图标范围内按下鼠标左键,这一次就不要立即松开左键,而是要将“标靶”拖到目标窗口上才松开鼠标左键。然后,目标窗口的信息就会被自动采集到相应的文本框。接下来,只需要点击确定键,就会启动GifGifGif程序 并按照文本框内的数值设置其录制范围的位置、大小。

因此,除了以捕捉窗口的方式得到录制范围之外,也可以直接输入数值来确定录制范围的位置(左上角屏幕坐标)及大小(即宽度和高度)。

TA的精华主题

TA的得分主题

发表于 2018-11-26 09:52 | 显示全部楼层
有心了!!!!!!!!!!!!!!!!!!!

TA的精华主题

TA的得分主题

发表于 2018-12-6 17:25 | 显示全部楼层
停止.gif 你好,我点击加载宏,确定后不能弹出录屏程序的?  是不是跟那个RGS的文件有关?
我打不开注册。RGS的文件呢

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-12-6 17:52 | 显示全部楼层
manman31 发表于 2018-12-6 17:25
你好,我点击加载宏,确定后不能弹出录屏程序的?  是不是跟那个RGS的文件有关?
我打不开注册。RGS的文 ...

你需要认真阅读帖子。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-4 17:04 , Processed in 0.034233 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表