Я пытаюсь экспортировать определенную область печати с помощью макросов, но при выполнении кода она экспортирует белый jpg.
Если я установил точку останова в строке вставки и выполнил код, он работает.
Есть идеи?
Вот мой код:
Set sheet = ActiveSheet
sFilePath = "C:\Users\test.jpg"
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)
Application.Wait (Now + TimeValue("0:00:5"))
chartobj.Chart.Paste '<- if i set the breakpoint here it works, if not, it returns a white jpg
chartobj.Chart.Export sFilePath, "jpg"
chartobj.Delete
Я ожидаю JPG с областью печати, но он возвращает JPG без чего-либо.