Afbeeldingen invoegen

[ebbremmer]

Ik ga het nakijken

[ebbremmer]

Hallo,

 

Ik kom er niet achter, heb bestand bijgevoegd. 

DFSP17079D1_Test.xlsx

[bakerman]

Aangezien de volledige padnaam in je kolom M staat.

 

Getest en werkend op de indeling van het laatst doorgestuurde bestand.

 

Sub dotch()
Dim Cell As Range, Path As String
With Sheets("Export")
    For Each Cell In .Range("M2:M" & .Cells(.Rows.Count, 13).End(xlUp).Row)
        If Cell.Value <> vbNullString Then
            If Dir(Cell.Value) <> "" Then
                With .Pictures.Insert(Cell.Value)
                    .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
        End If
    Next Cell
End With
End Sub

 

[ebbremmer]

Het werkt, hartelijk bedankt voor de support!

[kweezie wabbit]

Is het probleem opgelost en heb je verder geen vragen meer, geef dan een seintje zodat we het topic kunnen afsluiten.

[bakerman]

Graag gedaan en bedankt voor de feedback. 👍