Bilder mit Makro ins Excel einfügen

Question

Guten Tag

ich habe das selbe Problem wie hier geschildert:
https://supportnet.de/fresh/2005/11/id1193541.asp
und habe es auch den Lösungsvorschlag ausprobiert. Irgendwie kommen keine Bilder.

Habe ganz einfach 3 Artikelnummern in Spalte A reingeschrieben und die drei Bilder im Ordner mit der jeweiligen Artikelnummer versehen. Habe genau den beschriebenen Code kopier und eingefügt und den Pfad eingegeben. Aber es will einfach nicht so :-(

kann mir bitte jemand helfen?

Answer 1

Hallo,

so eine Ferndiagnose ist schwierig.

Kopier mal den folgenden Code in ein Standard-Modul deiner Arbeitsmappe:

Sub Bilder_einfügen()
Dim Pfad As String
Dim strDatnam As String
Dim Wiederholungen As Long

'Pfad, in dem die Bilder liegen! Anpassen!!!
Pfad = "C:\Bilder\"

'Spalte A ab Zeile 2 durchlaufen
For Wiederholungen = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'Namen der Bilder stehen in Spalte A - ohne Endung; Einlesen in Variable mit Pfadangaben
strDatnam = Pfad & Cells(Wiederholungen, 1).Value & ".jpg"
'Prüfen, ob Bilddatei im Verzeichnis existiert
If Dir(strDatnam) <> "" Then
'falls ja: Bilder werden in Spalte B eingefügt, Größe 3 x 3 cm
ActiveSheet.Shapes.AddPicture strDatnam, msoFalse, msoTrue, Cells(Wiederholungen, 2).Left, Cells(Wiederholungen, 2).Top, 85, 85
Else
'falls nein, wird in Spalte B eine Fehlermeldung geschrieben
ActiveSheet.Cells(Wiederholungen, 2) = "Bild nicht gefunden"
End If
Next

End Sub

Die Bildnamen stehen dabei in Spalte A, ohne Erweiterung. Die Erweiterung. hier jpg, musst du ggf. auf deine Verhältnisse anpassen, ebenso der Pfad, in dem die Bilder stehen.

Gruß

M.O.

Answer 2

Vielen Dank für die super schnelle Rückmeldung.

jetzt kommt die Meldung "Bild nicht gefunden". Habe den Pfad angepasst

Answer 3

habe noch dieses probiert...

die Bilder kommen, aber nicht in die Spalte C :-(

Option Explicit
Sub Bilder_einfügen()
Dim strPfad As String, lngWiederholungen As Long
Dim picBild As Picture
On Error Resume Next
strPfad = "C:\Users\MEISI\Sharepoint\Bilder HW16\"
For lngWiederholungen = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Set picBild = ActiveSheet.Pictures.Insert(strPfad & Cells(lngWiederholungen, 1) & ".jpg")
If Not picBild Is Nothing Then
With picBild
.Top = Cells(lngWiederholungen, 2).Top
.Left = Cells(lngWiederholungen, 2).Left
End With
End If
Set picBild = Nothing
Next lngWiederholungen
End Sub

Answer 4

Hallo,

wenn die Bilder nicht gefunden werden, dann prüfe
- den Pfad
- den Namen der Bilder
- die Erweiterung der Bilder (jpg, tif, bmp)

Gruß

M.O.