ActiveSheet.Pictures.Insert - Laufzeitfehler
Juppdietz
ich passe gerade ein Makro an, dass unter Excel 2003 problemlos lief und nun bei Excel 2010 einen Laufzeitfehler 1004 liefert.
Es geht um das Einfügen von Grafiken an einer bestimmten Stelle.
Der bisherige Quellcode:
Range("C51").Select
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\ordner\datei.jpg").Select
Bei McGoogle fand ich, dass das & Probleme verursachen soll. Daraufhin habe ich den Code in
Dim sPic As String
pic = ThisWorkbook.Path & "\admin\klein.jpg"
ActiveSheet.Pictures.Insert(sPic).Select
angepasst. Ich habe mir auch einmal ein Makro aufgezeichnet und die Schritte manuell gemacht. Leider sieht der Quellcode genau so aus, wie der, den ich schrieb - bis auf den dynamischen Dateinamen, den ich in der Aufzeichnung natürlich nicht erzeugen kann.
Hat jemand eine Idee, die mir helfen könnte?
Vielen Dank für die Bemühungen bereits im Voraus!!!!!!!!!!!!!!!!!!!