Supportnet / Forum / Tabellenkalkulation
Excel - Bilder mit Makro zuweisen - Problem
Frage
Hallo zusammen
Ich habe mir die Freiheit genommen, und das Script von coros (aus einem thread von 2005) verwendet. Funktioniert an und für sich super, tolle arbeit. Jedoch fügt es mir bei ca. 10% einfach kein Bild ein. Obwohl die Artikelnummer mit dem Bildnamen übereinstimmen. Und die Bilder im richtigen Verzeichnis sind.
Untenstehend der Code, habe ich irgend einen Fehler gemacht?
Danke für eure Tipps.
Liebe Grüsse
Stefan
[code]Option Explicit
Sub Bilder_einfügen()
Dim Pfad As String, Wiederholungen As Long
On Error Resume Next
Pfad = "\\Nouvelsrv1\jls_test\reports\custom\images\Artikelfotos\"
For Wiederholungen = 2 To Range("A65536").End(xlUp).Row
Cells(Wiederholungen, 2).Activate
ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 1) & ".jpg").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 90
Selection.ShapeRange.IncrementLeft 0.75
Selection.ShapeRange.IncrementLeft 0.75
Selection.ShapeRange.IncrementLeft 0.75
Selection.ShapeRange.IncrementLeft 0.75
Selection.ShapeRange.IncrementTop 0.75
Selection.ShapeRange.IncrementTop 0.75
Selection.ShapeRange.IncrementTop 0.75
Selection.ShapeRange.IncrementTop 0.75
Next[/code]
Antwort 1 von roque
End Sub
noch vergesen mit zukopiere ;)
noch vergesen mit zukopiere ;)