Office: Excel Tabelle als Bild speichern mit Makro

JanDirk · 9. März 2013

Hallo zusammen,

ich habe ein Workbook, welches ich regelmäßig als gif speichern möchte. Diese Routine soll automatisiert über ein Makro laufen. Folgenden Codeschnipsel hatte ich dafür gefunden ... mein Prob ist nun, dass meine Zellen immer in einem Diagramm in der erzeugten Datei angezeigt werden. Ich möchte gerne, dass nur die Tabelle im Ausdruck enthalten sind. Hat jemand eine Idee, welche Zeilen ich im folgenden Code dafür ändern muss?

Code:

Dim chtPicture As Chart
Application.ScreenUpdating = False
ActiveSheet.Range("A1:F4").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set chtPicture = Charts.Add
chtPicture.Paste
chtPicture.Export "C:\MeineDateien\IchBinDeko.gif"
Application.DisplayAlerts = False
chtPicture.Delete
Application.DisplayAlerts = True
Set chtPicture = Nothing
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank im voraus

JanDirk

:)

Beverly · 10. März 2013

Hi JanDirk,

Code:

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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

JanDirk · 10. März 2013

Hallo Karin,

die Lösung fix & fertig geliefert - DDDDDAAAAANNNNNKKKKKEEEEE!

Viele Grüße

JanDirk

Keev91 · 24. Juni 2019

Bei mir funktioniert es leider nur Teilweise... wenn ich es schritt für schritt durchgehe mit (F8) dann klappt alles ohne Probleme. wenn ich es aber normal ausführe (F5) oder Button dann bekomme ich eine 2kB kleine Datei mit einem weissen Feld darin...

Kann mir jemand Helfen??

seit 3 Tagen bastel ich an dieser Screenshot-Speicherung, ich bin langsam am verzweifeln...

gruss
Kevin

MCInferno · 26. Juni 2019

Ich hänge mich mal hier mit an. Auch ich möchte einen Bereich in JPG speichern. Allerdings bekomme auch ich nur ein weißes Bild, wenn ich die Speicherung durch einen Button ausführen lasse. Wenn ich den Code einzeln durchlaufen lasse, bekomme ich das richtige Bild.

Ich nutze Office 2016.

Edit:

Ich habe den Fehler gefunden. Vor der Zeile .Paste habe ich die Zeile .ChartArea.Select eingefügt und es klappte.

Hier habe ich die Lösung gefunden: https://www.ms-office-forum.net/foru...d.php?t=342639

Office: Excel Tabelle als Bild speichern mit Makro

Excel Tabelle als Bild speichern mit Makro

Excel Tabelle als Bild speichern mit Makro

Excel Tabelle als Bild speichern mit Makro

Excel Tabelle als Bild speichern mit Makro - Similar Threads - Excel Tabelle Bild

Bedingte Formatierung funktioniert nicht

Array aus Excel Tabelle einlesen Word VBA

Dynamische Tabellen mit automatischer Aktualisierung

(Excel) Dynamische Tabelle, VBA, fehlende Formatierung?

Spalte gruppieren und aus den Inhalten jeweils eine Tabelle

Mehrere Tabellen in einer Pivot Grafik

Bilden von Gesamtergebnissen in einer Excel-Tabelle