如何将图表导出为jpg？

Question

我正在尝试使用宏导出特定的打印区域，但是在执行代码时，它会导出白色的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。