Hallo zusammen,
mit nachfolgendem Code habe ich in Excel 2010 einen Screenshot erstellt und diesen abgespeichert.
Range(Worksheets("Ausgaben").PageSetup.PrintArea).CopyPicture Appearance:=xlPrinter, Format:=xlPicture
With Worksheets("Ausgaben").ChartObjects.Add(0, 0, Range(Worksheets("Ausgaben").PageSetup.PrintArea).Width, _
Range(Worksheets("Ausgaben").PageSetup.PrintArea).Height).Chart
.Paste
.Export Filename:="L:\Archiv " & Jahr & "\" & Range("B1") & " " & Range("C1") & ".jpg", FilterName:="JPG"
.Parent.Delete
End With
In Excel 365 funktioniert das Makro nicht mehr, es wird nur ein leerer Rahmen abgespeichert.
Wie muss ich den obigen Code ändern/ergänzen, damit er auch in Excel 365 funktioniert?
Danke schonmal für eure Hilfe und schönen Sonntag.
Niko