软件: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倍 这样或许就可以让图片的分辨率好一点? 不知道这段程式码应该怎么修改呢? 谢谢