ich habe ein Blatt, in dem mehrere Bilder existieren. Um diese gezielt anzusprechen, benötige ich den (internen) Namen des Bildes. Ich habe keine Möglichkeit gefunden, diesen manuell (ohne VBA) anzuzeigen oder zu ändern.
Mit dem Code
Sub Makro1()
Dim Grafik As Shape
Dim Zähler
Dim Titel As String
Zähler = 1
For Each Grafik In ActiveSheet.Shapes
MsgBox Grafik.Name
Grafik.Name = "Bild" & Zähler
Zähler = Zähler + 1
Next
End Sub
konnte ich zumindest jedem Bild einen eindeutigen Namen geben. Nun habe ich aber das Problem, das ich nicht erkennen kann, welches Bild nun welchen Namen hat.Ein Versuch, jedes Bild nacheinander als Hintergrund einer Userform darzustellen, ist leider mit meinen Kenntnissen gescheitert.
Kann mir jemand einen kurzen Code nennen, mit dem ich jedes Bild auf dem Blatt mit dem dazugehörigen Namen angezeigt bekomme?
Danke vorab und Gruß
David