Borrar todas las formas en la hoja de cálculo de Excel excepto controles de formulario

Question

Tengo una hoja de cálculo de Excel donde una macro vinculada a un botón dibuja formas dinámicas basadas en los parámetros de entrada del usuario en la hoja de trabajo.

Estoy tratando de escribir una nueva macro para limpiar la hoja, o en otras palabras eliminar todas las formas en la hoja de trabajo.

He intentado utilizar el código siguiente, y de hecho elimina todas las formas, sin embargo, los controles de formulario de botón también se eliminan en el proceso. ¿Hay una manera fácil de deshacerse de las formas (flechas, cuadros de texto, elipses, etc.) en la hoja de trabajo? ¡¡¡Gracias un montón!!!

Sub DeleteAllShapes() 

Dim Shp As Shape 

For Each Shp In ActiveSheet.Shapes 
    Shp.Delete 
Next Shp 

End Sub 

Answer 1

Para eliminar formas automáticas y cajas de texto sólo se puede utilizar:

Sub DeleteAllShapes() 

Dim Shp As Shape 

For Each Shp In ActiveSheet.Shapes 
    If Shp.Type = msoAutoShape Or Shp.Type = msoTextBox Then Shp.Delete 
Next Shp 

End Sub 

alternativa, se puede trabajar al revés y especificar los tipos de no eliminar. Puede usar los tipos enumerados, pero es más fácil usar los nombres de tipo. El siguiente fragmento eliminará todo, aparte de los controles de formulario y los objetos de control OLE.

Sub DeleteAllShapes() 

Dim Shp As Shape 

For Each Shp In ActiveSheet.Shapes 
    If Not (Shp.Type = msoOLEControlObject Or Shp.Type = msoFormControl) Then Shp.Delete 
Next Shp 

End Sub 

Una lista completa de tipos de formas de MSO. http://msdn.microsoft.com/en-us/library/office/aa432678(v=office.12).aspx

Ron de Bruin tiene una buena colección de fragmentos que pueden ser relevantes para cualquier persona que se encuentre con esta pregunta. http://www.rondebruin.nl/controlsobjectsworksheet.htm