im Internet habe ich folgenden Schnipsel gefunden:
Sub TabelleExportierenAlsBild()
Application.ScreenUpdating = False
ActiveSheet.Range("A1:F4").CopyPicture Appearance:=xlScreen, Format:=xlPicture
With ActiveSheet.ChartObjects.Add(0, 0, Range("A1:F4").Width, Range("A1:F4").Height).Chart
.Paste
.Export "C:\MeineDateien\IchBinDeko.gif"
.Parent.Delete
End With
Application.ScreenUpdating = True
End Sub
Diese vba-Spielerei funktioniert unter Windows 7 mit Office 13 sehr gut, nur in Windows 10 mit Offce 2016 nicht mehr.Hat jemand eine Idee?
Hier die Datei als Anschauungsobjekt.
https://www.herber.de/bbs/user/115924.xlsm
Viele liebe Grüße und besten Dank im Voraus.
Oliver