軟體: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倍

這樣或許就可以讓圖片的解析度好一點?

不知道這段程式碼應該怎麼修改呢?

謝謝


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.255.243.122
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1425258241.A.D6A.html