Excel 2016 - problems with macro that generates a jpg image since upgrade to Excel 2016

[NikHag]

[FONT=&quot]Hello community, [/FONT]
[FONT=&quot]I have since the upgrade to Excel 2016 experienced a problem with a macro that generates a jpg image of a designated excel area. In the previous versions, it worked without problems but since the upgrade the macro only generates a blank jpg. Have anyone experienced something similar? The code is the following: [/FONT]
[FONT=&quot]Public Function exportRange(area As Range, ws As Worksheet, path As String)[/FONT]
[FONT=&quot] Application.ScreenUpdating = True[/FONT]
[FONT=&quot] Application.DisplayAlerts = True[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] Dim output As String[/FONT]
[FONT=&quot] Dim zoom_coef As Single[/FONT]
[FONT=&quot] output = path[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] zoom_coef = 70 / ws.Parent.Windows(1).Zoom[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] area.CopyPicture xlPrinter[/FONT]
[FONT=&quot] Dim chartobj As ChartObject: Set chartobj = ws.ChartObjects.Add(0, 0, area.Width * zoom_coef, area.Height * zoom_coef)[/FONT]
[FONT=&quot] chartobj.Select[/FONT]
[FONT=&quot] chartobj.Chart.Paste[/FONT]
[FONT=&quot] chartobj.Chart.Export output, "jpg"[/FONT]
[FONT=&quot] chartobj.Delete[/FONT]
[FONT=&quot]End Function[/FONT]