excel单元格转图片保存

liwei321gogo

WPS功能.e (11.55 KB, 下载次数: 47)

2024-4-24 09:49 上传

点击文件名下载附件 更新一下，加入一种截图模式，两种模式对比


png高清格式：

PNG模式-高清

liwei321gogo

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
ws	对象
rng	对象
cobj	对象
aaa	剪辑版数据		0
i	整数型

ws ＝ wks对象.对象型方法 (“Item”, 1)
rng ＝ ws.对象型方法 (“Range”, 编辑框1.内容)
rng.对象型方法 (“CopyPicture”, 1, -4147)
剪辑板_取所有内容 (aaa)
计次循环首 (取数组成员数 (aaa), i)
如果真 (aaa [i].字节集长度 ＞ 1000)
写到文件 (“.\33.png”, aaa [i].字节集数据)  ' 保存位置
跳出循环 ()

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 ws, 对象<br /> .局部变量 rng, 对象<br /> .局部变量 cobj, 对象<br /> .局部变量 aaa, 剪辑版数据, , "0"<br /> .局部变量 i, 整数型<br /> <br /> ws ＝ wks对象.对象型方法 (“Item”, 1)<br /> rng ＝ ws.对象型方法 (“Range”, 编辑框1.内容)<br /> rng.对象型方法 (“CopyPicture”, 1, -4147)<br /> 剪辑板_取所有内容 (aaa)<br /> .计次循环首 (取数组成员数 (aaa), i)<br />     .如果真 (aaa <i>.字节集长度 ＞ 1000)<br />         写到文件 (“.\33.png”, aaa <i>.字节集数据)  ' 保存位置<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

按钮2点击没反应的可以修改成这个代码

liwei321gogo

按钮2点击没反应可以修改

rateltalk

方法2点击没反应

rateltalk

怎么可以过滤隐藏的sheet

小学生123

感谢分享

xf702

感谢。。。

kyo9766

这个需要安装 WPS 之后才可以使用吗

光影魔术

感谢分享，正好需要

vilionly

点赞点赞点赞！

Masonic

感谢分享