Экспорт диапазона в виде растрового изображения без (или обрезки) контурной линии - PullRequest
Новая
       43

Экспорт диапазона в виде растрового изображения без (или обрезки) контурной линии

0 голосов
/ 25 октября 2019

Я нашел пару потоков, где .ChartArea.Format.Line.Visible = msoFalse упоминается, чтобы скрыть эту строку, но вокруг полученного растрового изображения все еще есть белая рамка размером 1 пиксель ...

Есть ли какие-либо предложения по ее удалению? Любая команда обрезки, которую я мог бы добавить к текущему процессу ??

Заранее спасибо;) 

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
...