Bildexport per VBA
08.05.2019 15:32:51
Uwe
Ich habe ein Problem mit einem script das eine Grafik als Bild kopiert und als jpg speichert. Im Editormodus läuft das script fehlerfrei aber im Runmode erzeugt es nur leere Bilder.
Der code ist eigentlich unspektakulär und ich habe auch schon Waitstates eingebaut um Laufzeitprobleme zu umgehen. Leider bleibt es dabei - Einzelschrittabarbeitung ok, Run erzeugt leere Bilder
Habt Ihr eine Idee?
Danke im Voraus
Application.ScreenUpdating = False
Range("C9:S39").Select
Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
Application.Wait Now + TimeValue("00:00:03") 'Kopieren dauert
Set chtObj = ActiveSheet.ChartObjects.Add(10, 10, 214, 130)
Application.Wait Now + TimeValue("00:00:02") 'dauert nicht ganz so lang
chtObj.Name = "Bildkopie"
chtObj.Chart.Paste
Application.Wait Now + TimeValue("00:00:02") 'dauert nicht ganz so lang
Sheets("Ansicht").ChartObjects("Bildkopie").Activate
ActiveChart.Export Filename:=strPathAndFile, FilterName:="JPG"
Application.Wait Now + TimeValue("00:00:02")
ActiveChart.Parent.Delete
Application.ScreenUpdating = True