Office: Bilder automatisch einfügen

Hallo ihr Office Profis,

ich habe folgendes Problem und zwar habe ich eine große Artikel Tabelle mit Artikeln in Spalte A steht die Artikelnummer bspw. 19229256 sie haben alle die gleiche Länge.

teilweise sind leere Spalten und auch Nummern zu denen es noch kein Bild gibt.

ich habe jetzt versucht ein Macro zu schreiben bei dem in Zeile C ein Bild aus einem Ordner eingefügt wird (es handelt sich um eine Festplatte auf einem Server die als Netzlaufwerk verbunden ist) mein Makro lautet wie folgt:


Option Explicit

Sub Bilder_einfügen()
Dim Pfad As String, Wiederholungen As Long
On Error Resume Next
Pfad = "M:\60 Bilddata\Schmuck\JPG\JPG 2010\82t"
For Wiederholungen = 2 To Range("A65345").End(xlUp).Row
Cells(Wiederholungen, 3).Activate
ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 1) & ".jpg").Select
Next
End Sub

das Makro läuft durch von oben nach unten setzt jedoch keine Bilder ein obwohl fast alle Bilder vorhanden sind

wenn ich den Befehl On Error Resume Next rausnehme bleibt er sofort mit der Meldung:
Laufzeitfehler 1004 die Insert Eigenschaft des Picture Objects kann nicht zugeordnet werden stehen.

ich habe es auch versucht mit einer kleineren Excel Tabelle mit nur 2 Artikeln und einer lokalen Festplatte funktioniert aber leider auch nicht.
Ich habe den Code von ner anderen Seite geklaut bin mir also nicht 100% im Klaren was das Script macht aber sollte eigentlich funktionieren wo liegt mein Fehler?


dannach sollte das Bild so eingefügt werden das es ein kleines bisschen nach unten verschoben wird damit es die Zellengrenze nicht unsichtbar macht und in den Eigenschaften von Zellposition und Größe abhängig gemacht werden.

vielen dank im Vorraus

 

schaue mal hier http://hajo-excel.de/inhalt_vba_bild.htm

 

danke werde ich mir mal anschauen aber würde natürlich auch gerne wissen was in meinem Script der Fehler ist, zumal ich deins auch erst komplett umschreiben muss um es auf meine Tabelle zu nutzen

 

Hi,

hast du mal die Variable Pfad überprüft? Am Ende fehlt der Backslash.

In VBA kann man zu 99% auf Select und Activate verzichten:

Code:

Sub BilderEinfuegen()
    Dim Pfad As String, Wiederholungen As Long
    Pfad = "C:\Test\"
    For Wiederholungen = 2 To Range("A65345").End(xlUp).Row
        If Dir(Pfad & Cells(Wiederholungen, 1) & ".jpg") <> "" Then
            With ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 1) & ".jpg")
                .Top = Cells(Wiederholungen, 3).Top
                .Left = Cells(Wiederholungen, 3).Left
                .Placement = xlMoveAndSize
            End With
        End If
    Next
End Sub

Bis später,
Karin