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
