No me dio resultado amigo, inserte una imagen con el código que me compartiste, el cual es el siguiente:
ActiveSheet.Pictures.Insert("C:\Documents and Settings\jiovani\Mis documentos\SIMULADOR\AOL.JPG").Select
Selection.OnAction = "Regresar_Boton"
Selection.ShapeRange.Top = Range("C1").Top
Selection.ShapeRange.Left = Range("C1").Left
Ahi se inserta la imagen y al mismo tiempo se le asigna una macro (Tiene la función de un botón), Ahora lo que necesito es seleccionar esa misma imagen y/o botón para eliminarlo, pero con el código ActiveSheet.Shapes("10 Imagen").Delete me marca error, sabes a que se debe?, o mejor dicho, es posible lo que intento hacer?.