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

Preguntas similare

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
Respuesta Responder a este mensaje
#2 Emar
04/03/2011 - 16:28 | Informe spam
Muchas gracias por la respuesta,

Aún mantengo el mismo error en la línea
ActiveWorkbook.Styles.Item(i).Delete

error 1004 "Error en el método Delete de la clase Style"

No encuentro ayuda documentada respecto a este error y no sé qué lo
produce.
Saludos



On 3 mar, 13:05, Cacho R wrote:
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
Respuesta Responder a este mensaje
#3 Cacho R
04/03/2011 - 20:44 | Informe spam
Pero, Emar: ¿Cuántos estilos tienes?...
Averígualo ejecutando en ese libro el siguiente código:
________________________

Sub Macro156()
Dim i As Byte
Sheets.Add
For i = 1 To ActiveWorkbook.Styles.Count
Cells(i, "A") = ActiveWorkbook.Styles(i).Name
Next i
ActiveWindow.ScrollRow = [a65536].End(xlUp).Row
End Sub
________________________

Saludos, Cacho.


On 4 mar, 12:28, Emar wrote:
Muchas gracias por la respuesta,

Aún mantengo el mismo error en la línea
ActiveWorkbook.Styles.Item(i).Delete

error 1004 "Error en el método Delete de la clase Style"

No encuentro ayuda documentada respecto a este error y no sé qué lo
produce.
Saludos

On 3 mar, 13:05, Cacho R wrote:

> 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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida