[算表] 储存格汇出成图片的分辨率不够

楼主: verdant (中年大叔)   2015-03-02 09:03:57
软件:excel
版本:2010
想要能够让某些储存格的内容可以自动汇出成图片
所以上网找到了某段VBA的程式码
试了一下可以跑
但是觉得图片的分辨率太差了
Sub Ex()
Dim Rng As Range
'指定的范围
Set Rng = Range("D3:G9")
Rng.CopyPicture
'新增 图表
With ActiveSheet.ChartObjects.Add(1, 1, Rng.Width, Rng.Height)
'贴上 图片
.Chart.Paste
'汇出 图片
.Chart.Export Filename:="F:\WORK\Test.Png"
'删除 图表
.Delete
End With
End Sub
目前的想法是
如果能够在贴上图片和汇出图片之间
增加一个把图片放大的动作
例如说放大3倍或4倍
这样或许就可以让图片的分辨率好一点?
不知道这段程式码应该怎么修改呢?
谢谢
作者: soyoso (我是耀宗)   2015-03-02 11:45:00
加上ScaleWidth,ScaleHeight范例档 http://goo.gl/RlqHq0

Links booklink

Contact Us: admin [ a t ] ucptt.com