Bereich als Bild speichern
16.07.2020 17:34:50
Frank
dieser Code hat bis jetzt immer geklappt.
Sub Bild_speichern()
Application.ScreenUpdating = False
With Sheets("Systeme")
.Range("B2:G13").CopyPicture Appearance:=xlScreen, Format:=xlPicture
With .ChartObjects.Add(0, 0, Range("B2:G13").Width, Range("B2:G13").Height).Chart
.Paste
'Speicherpfad --> %Temp% Ordner
.Export Environ("temp") & "\2 Schichtsystem.bmp"
.Parent.Delete
End With
.Range("I2:T13").CopyPicture Appearance:=xlScreen, Format:=xlPicture
With .ChartObjects.Add(0, 0, Range("I2:T13").Width, Range("I2:T13").Height).Chart
.Paste
'Speicherpfad --> %Temp% Ordner
.Export Environ("temp") & "\3 Schichtsystem.bmp"
.Parent.Delete
End With
End With
Application.ScreenUpdating = True
End Sub
Jetzt ist das Phänomen, dass wenn der Code schnell durchläuft das Bild einfach weiß bleibt bei abspeichern.
wenn ich den Code langsam durch laufen lassen (mit F8) dann funktioniert es, dass da auch richtig der Bereich als Bild gespeichert wird.
kann mir das jemand erklären, oder hat jemand eine Änderung des Codes für mich?
danke
Frank
Anzeige