将范围导出为位图而没有（或裁剪）轮廓线

Question

我发现了几个线程，其中引用了.ChartArea.Format.Line.Visible = msoFalse以隐藏此行，但是在生成的位图周围仍然有一个1px的白色边框...

是否有建议彻底删除它？我可以添加到当前进程中的任何裁剪命令？

预先感谢;）

Sub NOoutLINE()

    ActiveWorkbook.Sheets(1).Activate

    Range("A1:A" & Abs(ActiveWorkbook.Sheets(2).Range("A1").Value)).Select
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture

    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SeriesCollection(1).Delete

    ActiveChart.ChartArea.Format.Line.Visible = msoFalse
    ActiveSheet.Shapes(1).Height = Range("A1:A" & Abs(ActiveWorkbook.Sheets(2).Range("A1").Value)).Height
    ActiveSheet.Shapes(1).Width = Range("A1:A" & Abs(ActiveWorkbook.Sheets(2).Range("A1").Value)).Width
    ActiveSheet.Shapes(1).Chart.Paste
    ActiveSheet.Shapes(1).Chart.Export "C:\sample\CHART.JPG", Filtername:="JPG"

    ActiveSheet.ChartObjects(1).Delete

End Sub