При вставке изображения в диаграмму оно отображается пустым - PullRequest
Новая
       9

При вставке изображения в диаграмму оно отображается пустым

0 голосов
/ 20 февраля 2019

Я хочу вставить скопированный диапазон как изображение в объект chartobject, чтобы затем экспортировать его как изображение.При вставке он вставляет пустой объект, но когда я ставлю точку останова перед строкой вставки, он вставляет изображение.Я попытался поместить время ожидания перед вставкой, но это не решает проблему. 

Sub ExportScr()

Dim output As String

Set Sheet = ActiveSheet
output = CStr(ActiveWorkbook.Path) & "\Screenshots\" & ActiveSheet.Name & "1.jpg"

ActiveWindow.View = xlNormalView
zoom_coef = 100 / Sheet.Parent.Windows(1).Zoom
Set area = Sheet.Range("B2:M10")
area.CopyPicture xlScreen, xlBitmap
Set ChartObj = Sheet.ChartObjects.Add(0, 0, area.Width * zoom_coef, area.Height * zoom_coef)

ChartObj.Chart.Paste

ChartObj.Chart.Export output, "jpg"
ChartObj.Delete

End Sub
...