Bilder anzeigen aus Sheet in Userform
dave
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
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
Anzeige