这串代码导出图片的像素如何提高？

zzpsx

Option Explicit
Sub copy_picture()
Dim ws As Worksheet
Dim path As String
Dim rng As Range
path = ActiveWorkbook.path & "\export_jpg"
If FileFolderExists(path) = False Then MkDir path
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "Sheet1" Then
        Set rng = ws.Range("A1").CurrentRegion
        rng.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
        With ws.ChartObjects.Add(0, 0, rng.Width, rng.Height).Chart
        .Parent.Select
            .Paste
            .Export path & "\" & ws.Name & ".jpg"
            .Parent.Delete
        End With
        Set rng = Nothing
    End If
Next
End Sub
Public Function FileFolderExists(strFullPath As String) As Boolean
On Error GoTo EarlyExit
If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True
EarlyExit:
End Function

zzpsx

顶，请各位高手帮忙

zzpsx

With ws.ChartObjects.Add(0, 0, rng.Width * 3, rng.Height * 3).Chart

多谢小鹿高手帮忙，已经解决。