Office - Word, Excel und Co. 9.744 Themen, 41.408 Beiträge

Hallo,
ich suchte seit einiger Zeit ein VBA Skript, dass Skizzen in eine Excel Zelle automatisch einfügt.
Im Internet habe ich ein Skript gefunden, mit dem ich der Meinung war, dies könnte ich einsetzen.
Beschreibung:
Die Skizzen liegen als JPG Dateien unter D:\Daten\Skizzen. Die Skizzen haben eine Höhe von 50 Pixel.
Die Skizzen sind fortlaufend Nummeriert
Das Arbeitsblatt liegt unter D:\Daten\Vorlagen. In der Spalte "A" ab A2 bis A100 werden die fortlaufende Nummer eingetragen.
Dabei sollen automatisch die Skizzen in der Spalte "C" ab C2 bis C100 eingefügt werden.
Bei löschen der fortlaufenden Nummer ( Z.B. A5 ) in der Spalte "A" soll auch die dementsprechende Skizze gelöscht werden.

folgender gefundene VBA Code.

Option Explicit

Sub Skizze einfügen()

Dim strPfad As String, lngWiederholungen As Long
Dim picBild As Picture
On Error Resume Next
strPfad = "D:\Daten\Skizzen\"
For lngWiederholungen = 1 To Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
ActiveSheet.Shapes(Cells(lngWiederholungen, 1)).Delete
On Error GoTo 0
Set picBild = ActiveSheet.Pictures.Insert(strPfad & Cells(lngWiederholungen, 1) & ".jpg")

With picBild
.Name = Cells(lngWiederholungen, 1)
.Top = Cells(lngWiederholungen, 3).Top
.Left = Cells(lngWiederholungen, 3).Left
.Height = 50

End With

Next lngWiederholungen
Set picBild = Nothing
End Sub

Die Fehlermeldung heißt:
Laufzeitfehler 1004. Die Insert-Eigenschaft des Pictures-Objektes kann nicht zugeordnet werden.

Ich verwende Excel 2007

Da ich kein VBA - Kenner bin, stelle ich hier die Frage: Wer kann mir bei dieser gestellten Frage helfen?

Gruß Max