Bereich als Bild abspeichern funktioniert nicht me
06.11.2018 11:02:20
Volker
ich habe folgenden Code, um einen Zellenbereich als Bild abzuspeichern.
Sub Excel_Bereich_als_Bild_abspeichern(Ableseauftragsnr As String, Bildverzeichnis As String, _
_
Zellenbereich As String, Optional Tabellenname As String = "Tabelle1")
' Herkunft: http://www. _
_
ms-office-forum.net/forum/showthread.php?t=298218
' auf die Ausdruckstabelle wechseln
Sheets(Tabellenname).Select
ActiveSheet.Range(Zellenbereich).CopyPicture Appearance:=xlScreen, Format:=xlPicture
With ActiveSheet.ChartObjects.Add(10, 10, Range(Zellenbereich).Width, Range(Zellenbereich). _
_
Height).Chart
.Paste
.Export Bildverzeichnis & "\0_" & Ableseauftragsnr & ".jpg"
.Parent.Delete
End With
End Sub
Jetzt komme ich zu meinem Problem:
Mit einem Windows 7 Rechner HP 8200 I5, Office 2010 funktioniert das super.
Jetzt habe ich einen neunen Rechner HP MicroT 705 G3 mit Windows 10 und Office 365 bekommen.
Lasse ich das Makro so durchlaufen, dann sind alle Bilder leer. Öffne ich nun Paint und sage STRG+V, so sehe ich von dem letzten Bild den Inhalt.
Jetzt kommt es aber: Stoppe ich das Makro ab "ActiveSheet.Range" und drücke dann F8 bis ".Export" so sehe ich erst einmal einen weisen Rahmen, danach wird der zuvor kopierte Inhalt richtig (also sichtbar) eingefügt und anschließend auch richtig abgespeichert.
Meine Vermutung: Der neue Rechner ist einfach zu schnell.
Jetzt habe ich auch schon 3 Msgboxen eingefügt (an den Stellen, wo ich F8 drücke), aber auch da leider keine Verbesserung.
Meine Frage lautet daher: Woran liegt das und wie kann ich dies lösen?
Wäre echt super, wenn Ihr mir da helfen könntet.
Gruß
Volker
Anzeige