Una forma es que asignes la misma macro a todos los shapes
Pon la siguiente macro en un módulo
Sub informacion()
'Por.Dante Amor
nombre = Application.Caller
texto = ActiveSheet.DrawingObjects(nombre).Text
MsgBox "Click sobre el shape: """ & nombre & """ que tiene el texto: """ & texto & """"
End Sub
Sigue las Instrucciones para poner la macro en un módulo.
- Abre tu archivo de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
Para asignar cada la macro a cada shape, deberás repetir los siguientes pasos para cada shape:
1. Presionar click derecho dentro del shape
2. Selecciona: Asignar macro.
3. Selecciona la macro : informacion
Después de realizar las instrucciones anteriores presion click sobre cualquier shape y te aparecerá un mensaje con el nombre del shape y el texto que tiene almacenado el shape.
Saludos. Dante Amor
Si es lo que necesitas.