ActiveSheet.Shapes Zellposition
06.12.2008 12:41:49
Sonnenpeter
ich suche einen Weg die Zellposition eines Shapes anzuzeigen.
Sub ZeigeBildposition()
Dim Name As String
Dim Test
Name = ActiveSheet.Shapes(Application.Caller).Name ' Funktioniert
MsgBox Name
Test = ActiveSheet.Shapes(Position der Zelle in der sich das Shapes befindet)
MsgBox Test
End Sub
Gruß Sonnenpeter
Anzeige