Dante Amor respondió:
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 &...