Saber el nombre de un objeto que se encuentra en la fila X columna Y

"Manolito" escribió en el mensaje news:

Pues eso, tengo en una hoja de exell varias Pictures y yo quiero saber el
nombre
preguntandole a la celda que la contiene

o sea preguntarle al PC
¿dime el nombre de la picture que está en la fila 1 columna 2?

Gracias

Que yo sepa, no hay otra forma de hacerlo que recorrer la colección Shapes de la hoja, algo como:


Sub LlamarAFunción()
Dim shF As Shape
Set shF = QuéFormaEstáEnLaCelda([Hoja1!A1]) 'Hoja y celda a investigar
If Not shF Is Nothing Then MsgBox shF.Name
End Sub

Function QuéFormaEstáEnLaCelda(rngC As Range) As Shape
Dim shF As Shape

For Each shF In rngC.Parent.Shapes
If Not Intersect(rngC, Range(shF.TopLeftCell, shF.BottomRightCell)) Is Nothing Then
Set QuéFormaEstáEnLaCelda = shF
Exit Function
End If
Next shF
End Function


El código está lo más simplificado posible puesto que no contempla la posibilidad de que en una misma celda se encuentren varias formas (o, para el caso, varios "trozos" de forma).
Un saludo.


Fernando Arroyo
MS MVP - Excel
www.excelesp.com