Hallo,

wenn die Bilder fortlaufend durchnummeriert sind. Also Bild in A1 = Picture1, Bild in A2 = Picture2, Bild in A3 = Picture3.....

Sub Schaltfläche1_Klicken()
Dim i As Long

With Worksheets("Tabelle1")
    For i = 1 To .Cells(.Rows.Count, "B").End(xlUp).Row
        On Error Resume Next
        .Shapes("Picture" & CStr(i)).Name = .Cells(i, "B")
    Next i
End With

On Error GoTo -1
End Sub

Gruß Werner