Habe in einem Excel-Blatt Bilder eingfügt. Wurde ein Bild selektiert,
kann ich über folgendes Makro diesem Bild einen Namen vergeben.
Sub Shape_Name_vergeben()
'Bennenen einer selektierten Grafik
Dim shape_name As String
Dim oShape As Shape
shape_name = Application.InputBox(Prompt:="Bildname ?")
Set oShape = ActiveSheet.Shapes(Selection.Name)
With oShape
.Name = shape_name
.OnAction = "Mein_Name"
End With
End Sub
Nun wollte ich mir über "Mein_Name" den Namen der angeklickten Grafik
in einer Box zeigen lassen.
Sub Mein_Name()
Dim shape_name As String
shape_name = .....
MsgBox "Mein Name ist " & shape_name
End Sub
Aber irgendwie klappt das nicht - weil da fehlt noch was.
Weder ActiveSheet.Shapes(Selection.Name) noch
ActiveSheet.Shapes(OnAction.Name) bringen ohne Fehlermeldung
einen Namen. :-(
Hat da jemand eine Idee?