[算表] 儲存格匯出成圖片的解析度不夠

[verdant (死薪水上班族)]

軟體: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
→ soyoso: 加上ScaleWidth,ScaleHeight
→ soyoso: 範例檔 http://goo.gl/RlqHq0
→ verdant: 喔喔OK了!!大感謝!!!