цель следующего кода - экспортировать графическое изображение в папку.Он отлично работает при пошаговом использовании F8, но при нормальном выполнении изображение становится пустым.Нет сообщений об ошибках.Есть идеи как починить?любая помощь высоко ценится.
Sub ExportImage()
Dim sFilePath As String
Dim sView As String
Set Sheet = ThisWorkbook.Sheets("chart$")
sFilePath = "C:\temp\Chart.png"
Sheet.Select
sView = ActiveWindow.View
ActiveWindow.View = xlNormalView
zoom_coef = 100 / Sheet.Parent.Windows(1).Zoom
Set area = Sheet.Range(Sheet.PageSetup.PrintArea)
area.CopyPicture xlPrinter
Set chartobj = Sheet.ChartObjects.Add(0, 0, area.Width * zoom_coef, area.Height * zoom_coef)
chartobj.Chart.Paste
Application.ScreenUpdating = True
chartobj.Chart.Export sFilePath, "png"
chartobj.Delete
ActiveWindow.View = sView
MsgBox ("Export completed! The file can be found here:" & Chr(10) & Chr(10) & sFilePath)
End Sub
