Bild per Makro in Zelle einbetten
02.02.2021 21:30:46
Matthias
ich bin neu hier und habe gleich eine (für mich) schwierige Aufgabe. Ich möchte eine große Anzahl an Bildern aus einem Ordner in eine Excel-Datei einbetten, und zwar so, dass die Datei verschickt werden kann und die Bilder drin bleiben. Ich habe schon gefunden, dass ich den Code "ActiveSheet.Shapes.AddPicture" verwenden muss anstatt "ActiveSheet.Pictures.insert"
Ich bekomme es allerdings nicht hin, die Bilder jeweils in die richtige Zelle einzufügen. Die Bilder werden jetzt immer links oben eingefügt. Kann mir bitte jemand helfen:
Hier ist mein bisheriger Code:
Sub Makro32()
Dim Name As String
Dim i As Integer
On Error GoTo Fehlerbehandlung
For i = 2 To 4
Name = Cells(i, 6).Value
Cells(i, 7).Select
Dim objPicture As Shape
With ActiveSheet.Shapes.AddPicture(Filename:="S:\Briefe\HomeCollection\00_Fotoarchiv\ _
00_Thumbnails\" & Name & ".jpg", LinktoFile:=msoFalse, _
SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=-1, Height:=-1)
End With
Next i
Exit Sub
Fehlerbehandlung:
Resume Next
End Sub
Viele Grüße
Matthias