整理贴：插入导出表格图片及区域导出图片等

liulang0808 · 发表于 2018-12-11 10:58

爱笑的萌兽发表于 2018-12-11 10:17
版主大大，可能我没表述明白，直接上动图吧，
第一个是shp.type=13时，执行后没有导出图片。

明白您的意思了，就是图片类型也发生变化了。。。。
16没有用过，差距这么大马

gxls · 发表于 2019-3-19 06:20

进来学习，谢谢分享。mark

xj123321 · 发表于 2019-3-21 10:01

谢谢老师分享很实用

LSYG1688 · 发表于 2019-9-5 09:33

非常感谢LZ的分享，很实用！
如果LZ能再增加一个一键删除照片的按钮，删除页面上已经插入的图片，就会更完美了！
期待LZ更新！

fireicefan · 发表于 2019-9-26 08:15

liulang0808 发表于 2018-10-22 15:58
将准考证区域保存为图片，在数据有变动的时候，不要关闭刷屏，不然导出图片会有异常，各位可以自行尝试

请问下按这句“With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart”是得到原始图片大小吗？我用这个方法存出来的档案好象小了很多，但我想要得到原始图档大小。

Ehco、 · 发表于 2019-9-26 09:17

厉害厉害 nbnb

fireicefan · 发表于 2019-10-29 19:23

fireicefan 发表于 2019-9-26 08:15
请问下按这句“With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart” ...

那怎么样设置才能得到原始大小呢？谢谢

xiongying07 · 发表于 2019-11-18 23:48

非常适应，可以借鉴一下。

蒋昊 · 发表于 2020-1-29 22:00

fxl447098457 发表于 2018-11-15 21:07
你代码都没找对地方。。。。见红色部分。导出图片的代码。
With ActiveSheet.ChartObjects. ...

怎么去掉边框呀

OKJSJSF · 发表于 2020-2-5 21:11

fireicefan 发表于 2019-10-29 19:23
那怎么样设置才能得到原始大小呢？谢谢

导出的图片的大小是按工作表中的图片大小的，相当于经过了压缩，可能无法还原原清晰度分辩率。如果是图片链接，在工作表中改变单元格大小时，变大时，仍会显示清晰的图片。

		自动登录	找回密码
密码			免费注册

[分享] 整理贴：插入导出表格图片及区域导出图片等