用vb怎么把工作表数据区域变成图片并保存

fenny89

各位老师好：

就是把当前活动工作表数据区域用VB直接保存成图片，png或jpeg格式都可以，见附件。
要求：
一，会有电子印章或签名，希望保存后电子印章不变形。
二，保留页边距。
三，取消excel表格网格线，保留实黑线的表格
效果与我们把excel工作表转换成PDF，再从PDF转化成图片差不多一样吧。
自己折腾了好多，也参考了不少网友程序，要么是保存下来是空白一片，要不就是页边距只能加一边，左边与上边怎么都无法添加页边距。
希望有经验的老师帮忙看看，谢谢先。

lss001

请参考以下附件代码！
处理前.zip (28.26 KB, 下载次数: 13)

2025-4-12 14:42 上传

点击文件名下载附件

fenny89

lss001 发表于 2025-4-11 21:58
请参考以下附件代码！

你好，附件代码在哪呢？？什么都没有呢？？

3190496160

这个效果？

fenny89

3190496160 发表于 2025-4-12 09:00
这个效果？

老师，是的，是这个效果
虚线如果去不了，那我就在原文件把虚线去掉也可以。就是这个效果
谢谢老师用心。

lss001

fenny89 发表于 2025-4-12 02:45
你好，附件代码在哪呢？？什么都没有呢？？

楼上已经更新附件！

fenny89

lss001 发表于 2025-4-12 09:10
楼上已经更新附件！

谢谢老师。
不过你的附件无法运行，总是提示宏在该工程被禁用，我明明已经放开所有设置。
另外，一，不需要另外一个工作薄设置一个按钮，在原文件增加按钮就可以。
二，为了虚线去掉我看你还用了循环，我可以在原文件直接处理，无填充即可。
三，重量的一点就是，上面是举例的二个文件，还有其它的，占用区域不一样。
其实也挺简单的，就是把当前活动工作表活动区域，就是有数据的区域，复制粘粘成图片，然后在四边加上边距即可，如楼上的老师的效果一样。
非常感谢，如果方便帮我再处理一下，谢谢。

3190496160

处理前.rar (799.06 KB, 下载次数: 30)

2025-4-12 10:13 上传

点击文件名下载附件

3190496160

两个方式，一种是代码自动判断行数，另一种是选择区域，供参考

fenny89

3190496160 发表于 2025-4-12 10:14
两个方式，一种是代码自动判断行数，另一种是选择区域，供参考

谢谢，太感谢了。
老师专业技术非常优秀。