Hallo zusammen,
hatte vor langer Zeit mal ein Makro programmiert (Office 2007), das von allen Tabellen von einem bestimmten Range eine Grafik machen soll und die dann im Sheet "Grafik" ablegen.
IN der Zwischenzeit bin ich auf 2016 gewechselt und das Makro funktioniert nicht mehr richtig. Sehr merkwürdig: Manchmal rennt es ganz durch, dann verarbeitet es nur eine Grafik und stoppt dann, dann mal wieder 5 Grafiken und stoppt dann, dann geht's mal wieder komplett. (immer mit den selben Daten!!!)
Es ist keine Logik zu erkennen, wann es durchläuft und wann nicht..
Als Fehlermeldung bekomme ich dann immer :
"Die Methode 'PasteSpecial' für das Objekt _Worksheet ist fehlgeschlagen"
Laufzeitfehler 1004
Kann jemand einen Fehler finden ?
Danke
Sheets("Grafik").Select
Dim objPict As Object, objChrt As Chart
Dim rngImage As Range
Dim Tabelle As Worksheet
Dim SheetName As String
Dim strPfad As String
Dim strFile As String
For Each Tabelle In ThisWorkbook.Worksheets
strPfad = ThisWorkbook.Path
With Tabelle
If Left(.Name, 7) = "Projekt" Then
Set rngImage = .Range("B4:H20")
rngImage.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
.PasteSpecial Format:="bitmap", Link:=False, DisplayAsIcon:=False
Set objPict = .Shapes(.Shapes.Count)
objPict.Copy
Set objChrt = .ChartObjects.Add(1, 1, objPict.Width, objPict.Height).Chart
objChrt.Paste
objChrt.Export strFile
objChrt.Parent.Delete
objPict.Delete
End If
End With
Next Tabelle