für ein Makro benötige ich die genaue Zellposition eines Piktogrammes (Lupe). Das Piktogramm öffnet eine Userform mit einer ListBox. Nach Auswahl eines Eintrages aus der ListBox soll die Auswahl in der Zelle des Piktogrammes geschrieben werden. Bei einem CommandButton funktioniert es ja wie folgt:
Sub Test()
With ActiveSheet.CommandButton1
MsgBox "Obere linke Ecke " & .TopLeftCell.Address
End With
End Sub
Folgender Code führt zu der Fehlermeldung "Objekt unterstützt diese Eigenschaft oder Methode nicht."
Sub Test()
With ActiveSheet.Shapes.Range(Array("Graphic 4"))
MsgBox "Obere linke Ekce" & .TopLeftCell.Address
End With
End Sub
Wie lautet die richtige Syntax?
Vielen Dank vorab.
Gruß Timm R.