ebbremmer

Het werkt, hartelijk bedankt voor de support!

Hallo, Ik kom er niet achter, heb bestand bijgevoegd. DFSP17079D1_Test.xlsx

Ik ga het nakijken

Hallo, Bedankt voor de reactie. Helaas gaat het nog steeds fout op de regel: If Dir(Path & Cell & ".*") <> "" Then fout 52 ongeldige bestandsnaam of ongeldig bestandsnummer

Oeps, vergeten te melden dat niet alle cellen met de maplocatie van een afbeelding gevuld zijn. Er zou dus getest moeten worden of de cel gevuld is en zo ja, rekening houden met verschillende afbeeldingsformaten. Helaas is het voor mij abacadabra. Excuses voor het ongemak.

Philiep, Helaas krijg ik errors tijdens het uitvoeren van de macro Zie hierna. Komt dit omdat er ook bestanden verwerkt moeten worden met de extensie .jpeg en .gif? Geeft foutnummer 52. Ongeldige bestandsnaam. Eric Sub dotch() Dim Cell As Range, Path As String Path = "C:\#[Data]#\Music Collector\Images\" With Sheets("Export") For Each Cell In .Range("M2:M" & .Cells(.Rows.Count, 13).End(xlUp).Row) If Dir(Path & Cell & ".jpg") <> "" Then With .Pictures.Insert(Path & Cell & ".jpg") .ShapeRange.LockAspectRatio = msoFalse .Left = Cell.Offset(, 1).Left: .Top = Cell.Offset(, 1).Top .Width = Cell.Offset(, 1).Width: .Height = Cell.Offset(, 1).Height End With End If Next Cell End With End Sub

HARTELIJK DANK!!!

Hallo Philiep, Zie bijlagen. Groeten, Eric PC-Helpforum.zip

Bedankt voor de reactie. Voor mij nogal een technisch verhaal ik zal binnenkort een bestand posten.

Hallo, In mijn excelbestand (excel 2019) staat een veld met daarin een maplocatie van een afbeelding. Dit veld wil ik gebruiken om in een ander veld de betreffende afbeelding in te voegen (in een bepaald formaat). Hoe kan dit gerealiseerd worden?