Zellposition von Grafikelement
05.01.2020 17:35:16
Grafikelement
Ich habe oft viele Grafiken auf einem Tabellenblatt - da gibt es auch immer solche, die dort nichts zu suchen haben.
Mit dem folgenden Makro kann ich sie auflisten, doch genügt der Name oft nicht, um zu wissen, um was es sich genau handelt.
Ist es möglich, die Zelle herauszufinden, wo sich das Element befindet? zB ähnlich: sAdr = oShp.Address 'geht leider nicht
Sub to_Shapes_auflisten_Herber()
Dim z%, sNam$, sTmp$, sMsg$, sAdr$, sTyp$, oShp As Shape
For Each oShp In ActiveSheet.Shapes
z = z + 1
sNam = oShp.Name
sTyp = oShp.Type
sAdr = oShp.Address 'geht leider nicht
sMsg = sMsg & Format(z, "00") & ".) " & oShp.Name & " (" & sTyp & ")" & Chr(10)
Next
MsgBox sMsg
End Sub
Anzeige