Supportnet Computer
Planet of Tech

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 ;)

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: