问在Excel VB中运行图表/PNG导出循环时，复制/粘贴在其他应用程序中不起作用

EN

Sub ToPNG()
    ' save a range from Excel as a picture
    Dim r As Range
    Dim c As ChartObject

    Const strPath As String = "C:\G\"
    Application.ScreenUpdating = False

    Set r = Workbooks("GMon.xlsm").Worksheets("Main").Range("Print_Area")
    r.CopyPicture xlScreen, xlPicture

    Set c = ActiveSheet.ChartObjects.Add(0, 0, r.Width + 0, r.Height + 7)
    c.Chart.Paste
    c.Chart.Export strPath & "GMonOut.png", "PNG"
    c.Delete

    ExitProc:
    Application.ScreenUpdating = True
    Set c = Nothing
    Set r = Nothing
End Sub