Экспорт диапазонов ячеек в виде изображений без белой рамки - PullRequest
0 голосов
/ 27 марта 2019

Я использую vba для экспорта нескольких диапазонов ячеек в одном листе с изображениями.Хотя задача выполняется отлично с приведенным ниже кодом, но все изображения экспортируются с белой тонкой рамкой.Я уже вставил то, что должно удалить границу, но это не работает.Мой код выглядит следующим образом

Dim oWs As Worksheet
Dim oRng As Range
Dim oChrtO As ChartObject
Dim lWidth As Long, lHeight As Long
Set oWs = Sheets("sheet2")

oWs.Select
Set oRng = oWs.Range("g35:i44")
oRng.CopyPicture xlScreen, xlPicture
lWidth = oRng.width
lHeight = oRng.height
Set oChrtO = oWs.ChartObjects.Add(Left:=0, Top:=0, width:=lWidth, 
height:=lHeight)
oChrtO.Activate
With oChrtO.Chart
.ChartArea.Format.Line.Visible = msoFalse
.Paste
.Export Filename:="C:\Users\tg033980\Desktop\JSS 
 project\img\MNTH1_A.png", Filtername:="PNG"
 End With
 oChrtO.Delete`
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...