Afbeelding invoegen of insluiten in een cel of celbereik

[Georgyboy]

Dag Rudi,

Je hebt inderdaad gelijk!

Alle foto´s worden ingevoegd of tot aan een fout bestand en pad.

Is dit aanpasbaar, dat er bij een fout bestand en pad géén foto komt
en de rest van de foto´s worden ingevoegd?

Alvast bedankt,
Met vriendelijke groeten,

Georges,

 

[Warme bakkertje]

Sub Insert_Pict1()
    Dim lRow As Long, lLoop As Long
    Dim sShape As Shape, myarray As Variant
        myarray = Range("F2", Range("F65536").End(xlUp)).Value
        myarray = Application.WorksheetFunction.Transpose(myarray)
        ActiveSheet.Protect False, False, False, False, False
GetPict:
    If Not IsArray(myarray) Then
        MsgBox "Slechts 1 bestand geselecteerd."
        Exit Sub
    End If
    [COLOR="Red"]On Error Resume Next[/COLOR]
    lRow = 2
    For lLoop = LBound(myarray) To UBound(myarray)
    Set sShape = ActiveSheet.Shapes.AddPicture(myarray(lLoop), msoFalse, msoCTrue, _
            Cells(lRow, 7).Left, Cells(lRow, 7).Top, Cells(lRow, 7).Width, Cells(lRow, 7).Height)
        With sShape
            .Placement = xlMoveAndSize
        End With
    lRow = lRow + 1
Next lLoop
End Sub

Mvg

Rudi