Excel - Saber nombre imagen insertada

Hola chic@s:

Necesito saber el nombre de una imagen que he insertado, sin picarla y mirar su nombre en un macro ¿hay algún parámetro o comando que te devuelva el valor que Excel pone por defecto? También serviría el poder cambiar el nombre, o que al insertarla yo pudiera decirle con qué nombre, lo necesito para luego utilizarlo en un programa de Visual Basic.

Gracias anticipadas.

Esta inserta una imagen y le da un nombre:

Sub dibujo()
ActiveSheet.Pictures.Insert("C:\tu ruta").Select
ActiveSheet.Shapes(1).Name = "nombre"
End Sub

Si no le has asginado un nombre a tu imagen, esta macro te dice el nombre que por defecto le dio excel:

Sub nombre()
Dim nombre As String
nombre = ActiveSheet.Shapes(1).Name
Range("a1") = nombre
End Sub

Abraham