VBA自动保存指定区域为图片

cqz1314 · 发表于 2018-10-25 14:07

wpxxsyzx 发表于 2018-7-2 16:27
2016的Bug，解决办法：
Newshape.Copy
.Select

老师
能帮忙再看看这个代码吗？

能不能把图片的清晰度提高一些
谢谢

1249994139 · 发表于 2022-1-28 21:48

谢谢分享，下载练习下

zyhui1961 · 发表于 2022-6-1 10:49

wangweihebtu 发表于 2018-7-1 19:36
牛X的代码咱不会写，凑合用吧，应该符合你的要求

老师你好！截取的图片保存在哪了？

楚雪飘扬 · 发表于 2022-6-1 16:06

看下，是否满足您的需求

楚雪飘扬 · 发表于 2022-6-1 16:10

zyhui1961 发表于 2022-6-1 10:49
老师你好！截取的图片保存在哪了？

我的这个代码是保存在D盘123这个文件夹

楚雪飘扬 · 发表于 2022-6-1 16:15

cqz1314 发表于 2018-10-25 14:07
老师
能帮忙再看看这个代码吗？

你看下附件，不知道能不能满足你的需求，对于代码我也不是很懂

zyhui1961 · 发表于 2022-6-1 16:16

楚雪飘扬发表于 2022-6-1 16:10
我的这个代码是保存在D盘123这个文件夹

你好老师！保存图片名不是以时间够命名，而是以某单元格（如A1单元格的内容）命名，怎么改代码呢？谢谢！

楚雪飘扬 · 发表于 2022-6-1 16:27

zyhui1961 发表于 2022-6-1 16:16
你好老师！保存图片名不是以时间够命名，而是以某单元格（如A1单元格的内容）命名，怎么改代码呢？谢谢！

把日期换A1单元格
.Export "D:\123\" & Range("A1") & ".jpg", "JPG"

图片名称.jpg

楚雪飘扬 · 发表于 2022-6-1 16:30

zyhui1961 发表于 2022-6-1 16:16
你好老师！保存图片名不是以时间够命名，而是以某单元格（如A1单元格的内容）命名，怎么改代码呢？谢谢！

把日期代码改A1单元格即可
图片名称.jpg

zyhui1961 · 发表于 2022-6-1 16:37

本帖最后由 zyhui1961 于 2022-6-1 17:00 编辑

楚雪飘扬发表于 2022-6-1 16:30
把日期代码改A1单元格即可

谢谢大师！再麻烦一下：如果引用单元格命名，单元格是其他工作表（不是本工作表，如是“你好”工作表）的A1单元格又应该怎么改代码呢，谢谢老师！

.Export "D:\电子照片\" & Range("o3") & ".Png", "JPG"

也不知道上面的代码错哪在，运行提示错误并且总是截取一张空白图片和一张正确的图片覆盖到要截取图片的区域，而不是保存在要保存的位置！

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

[求助] VBA自动保存指定区域为图片

评分