RAMSoße
Lt. Commander
- Registriert
- März 2018
- Beiträge
- 1.772
Hallo Zusammen
Vielleicht habe ich das schon mal gepostet (finde es aber nicht mehr) und ich habe ein Alzheimer-Déjàvu.
Im Netz habe ich folgenden Makro Code gefunden, mit dessen Hilfe ich, Bilder automatisiert aus einem Ordner in eine Excell-Tabelle einfügen lassen möchte:
Die Bilder haben unterschiedliche Namen. Passieren tut leider nichts. Makros sind aktiv bzw. scharf geschalten
Vielen Dank und eine schöne Woche
Vielleicht habe ich das schon mal gepostet (finde es aber nicht mehr) und ich habe ein Alzheimer-Déjàvu.
Im Netz habe ich folgenden Makro Code gefunden, mit dessen Hilfe ich, Bilder automatisiert aus einem Ordner in eine Excell-Tabelle einfügen lassen möchte:
Code:
Sub InsertPics()
Dim Rw&, PFAD$, Datei$, Bild As Shape
PFAD = "C:\Users\<User>\Desktop\Makro Test\Bilder"
With ActiveSheet
For Rw = 2 To 10
Datei = .Range("C" & Rw) & ".jpg"
If Dir(PFAD & Datei) <> vbNullString Then
.Pictures.Insert (PFAD & Datei)
Set Bild = .Shapes(.Shapes.Count)
Bild.LockAspectRatio = msoFalse
Bild.Left = .Range("A" & Rw).Left
Bild.Top = .Range("A" & Rw).Top
Bild.Width = .Range("A" & Rw).Width
Bild.Height = .Range("A" & Rw).Height
End If
Next
End With
End Sub
Die Bilder haben unterschiedliche Namen. Passieren tut leider nichts. Makros sind aktiv bzw. scharf geschalten

Vielen Dank und eine schöne Woche