Borrar estilos

02/03/2011 - 20:03 por Emar | Informe spam
Hola
Sucede que tengo un fichero Excel con muchos (cientos) de Estilos que
no sé de dónde salieron. En el formulario Estilo, cuando selecciono
alguno de ellos no se habilita el botón Eliminar.

Traté de eliminarlos por programación utilizando el método Delete de
la clase Style y me da el error 1004 "Error en el método Delete de la
clase Style"

¿Por qué se produce este error? y cómo tratarlo para conseguir
eliminar el Estilo

Muchas Gracias
 

Leer las respuestas

#1 Cacho R
03/03/2011 - 19:05 | Informe spam
Suponiendo que tienes Excel 2010 (¿ó 2007?), intenta con:
________________

Sub Macro502()
Dim i As Integer
For i = 48 To ActiveWorkbook.Styles.Count
ActiveWorkbook.Styles.Item(i).Delete
Next
End Sub
________________

Del "48" para abajo se encuentran los estilos "nativos": quizás no sea
una buena idea eliminarlos.
Saludos, Cacho.

On 2 mar, 16:03, Emar wrote:
Hola
Sucede que tengo un fichero Excel con muchos (cientos) de Estilos que
no sé de dónde salieron. En el formulario Estilo, cuando selecciono
alguno de ellos no se habilita el botón Eliminar.

Traté de eliminarlos por programación  utilizando el método Delete de
la clase Style y me da el error 1004 "Error en el método Delete de la
clase Style"

¿Por qué se produce este error? y cómo tratarlo para conseguir
eliminar el Estilo

Muchas Gracias

Preguntas similares