怎样用VBA把工作表选定区域保存为图片文件

coby001

张雄友 发表于 2014-12-28 14:05
可能是我电脑问题，表格对象上有少许阴影。

如果你还想一点都不失真，可以保存为 png 格式。

.Export Pth & "\" & Pnm & ".png", "PNG"  '按指定图片路径及名称导出图片

张雄友

coby001 发表于 2014-12-28 14:12
如果你还想一点都不失真，可以保存为 png 格式。

.Export Pth & "\" & Pnm & ".png", "PNG"  '按指定图 ...

真的哦。太强大了。

coby001

张雄友 发表于 2014-12-28 14:19
真的哦。太强大了。

png格式 对这种颜色数很少的图片是很有优势的。
你这张图才 20K大小，比前2张jpg 的 100多K ，小了很多。颜色也不失真。

但，如果颜色很多，png就会急剧膨胀~~

张雄友

coby001 发表于 2014-12-28 14:28
png格式 对这种颜色数很少的图片是很有优势的。
你这张图才 20K大小，比前2张jpg 的 100多K ，小了很多。 ...

不会啊，更小KB了。

coby001

张雄友 发表于 2014-12-28 14:34
不会啊，更小KB了。

你没理解颜色的“数量”这一概念
那几个单色是很少的
你用填充色来看看，就知道了
要渐变填充色哦~

情赌两输

谢谢上面两位大神，我先看看

情赌两输

楼上的大大，用Worksheets("1-3").Range("A31:D60").CopyPicture Appearance:=xlScreen, Format:=xlPicture

怎么样

张雄友

coby001 发表于 2014-12-28 14:38
你没理解颜色的“数量”这一概念
那几个单色是很少的
你用填充色来看看，就知道了

将区域用人工选择，怎么不行的？哪个参数错了？谢谢！

1. Sub 怎样用VBA把工作表选定区域保存为图片文件()
   
2. Dim rng As Range
   
3. Set rng = Application.InputBox("请选择源区域", "温馨提示", , , , , , 8)
   
4.     Call RangeToPic((rng))
   
5. End Sub
   

复制代码

coby001

RangeToPic(rng)

香川群子

情赌两输 发表于 2014-12-28 16:16
楼上的大大，用Worksheets("1-3").Range("A31:D60").CopyPicture Appearance:=xlScreen, Format:=xlPicture ...

什么这么样？