軟體: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倍
這樣或許就可以讓圖片的解析度好一點?
不知道這段程式碼應該怎麼修改呢?
謝謝