Hallo,
1. alle Bilder untereinander in Spalte A
2. alle Namen untereinander (ohne Lücken, zusammenhängende Liste) in Spalte B
3. es müssen genau so viele Bilder wie Namen in Spalte B vorhanden sein (also Beispielsweise 25 Bilder untereinander in Spalte A, 25 Namen untereinander in Spalte B)
Die Bilder werden von oben nach unten benannt. Also das erste Bild bekommt den Namen aus B1, das zweite Bild den Namen aus B2....
Sub Schaltfläche1_Klicken()
Dim sh As Shape, i As Long
For Each sh In Worksheets("Tabelle1").Shapes
If sh.Name Like "Picture*" Then
i = i + 1
sh.Name = Cells(i, "B")
End If
Next sh
End Sub
Gruß Werner
|