求大神帮我看看，导出的图片分辨率低了，如何让它更加清晰

johnsonduj

企鹅先森 发表于 2020-10-2 12:07
应该是应用的场景不同，你是什么图片，我是直接截表格

我这13版，区域内图片和文字都有，放大窗口导出确实变化明显，导出图片的大小、分辨率差别都挺大。实在不行，换个思路，新建chart时宽高都乘以倍数，粘贴copypicture后拉伸填满chart再导出。

chis3

johnsonduj 发表于 2020-10-3 01:02
我这13版，区域内图片和文字都有，放大窗口导出确实变化明显，导出图片的大小、分辨率差别都挺大。实在不 ...

Sub CAP圖()
   
    Dim adds As String, filenames
    If TypeName(Selection) <> "Range" Then Exit Sub
   
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    ActiveSheet.Paste

    Set Newshape = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
   
    Newshape.Width = Newshape.Width * 3
   
    With ActiveSheet.ChartObjects.add(1, 1, 1, 1)
        .Width = Newshape.Width
        .Height = Newshape.Height
         Newshape.Copy
        .Select
        .Chart.Paste
        
        filenames = Application.GetSaveAsFilename(adds, "JPG (*.JPG),*.jpg", 2, "filename")
        
        .Chart.Export filenames
        .Delete
    End With
   
    Newshape.Delete
   
End Sub

抄版主的代碼,自己修改下吧

johnsonduj

chis3 发表于 2020-10-3 08:08
Sub CAP圖()
   
    Dim adds As String, filenames

我替楼主和楼上兄弟谢谢你

scnc001

导出文件格式改为emf呢

bluesky_0

参考我的帖子:
解决VBA保存EXCEL里的图片不清晰,且按照指定名称保存
https://club.excelhome.net/thread-1693147-1-1.html