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?