Como saber si hay grafico incrustado en una hoja

24/08/2004 - 09:05 por gema.bernardo | Informe spam
Hola gente!

He creado un grafico incrustado en una hoja

Sheets(1).Activate

Charts.Add

y lo borro así:

ActiveSheet.ChartObjects(1).Delete

El problema es que cuando intento ejecutar la linea de borrado del grafico
y éste no existe, se produce un error de ejecución... Necesito comprobar
que el grafico no exista para poder ejecutar el borrado.

Alguien sabe como se comprueba si hya graficos incrustados en una
pagina????


Un saludo,
Gema BM.
 

Leer las respuestas

#1 Valentín Playá Serra
24/08/2004 - 09:44 | Informe spam
Gema,

para estos casos creo que lo más simple es ignorar los errores del Delete.
Podría ser algo así:

On error resume next
ActiveSheet.ChartObjects(1).Delete
'si quieres después puedes volver a la rutina de errores normal
On error goto xxxxxxxxxx

Saludos,

Valentín Playá Serra
Sonotronic S.A.
**************************************************
"Gema" escribió en el mensaje
news:
Hola gente!

He creado un grafico incrustado en una hoja

Sheets(1).Activate

Charts.Add

y lo borro así:

ActiveSheet.ChartObjects(1).Delete

El problema es que cuando intento ejecutar la linea de borrado del grafico
y éste no existe, se produce un error de ejecución... Necesito comprobar
que el grafico no exista para poder ejecutar el borrado.

Alguien sabe como se comprueba si hya graficos incrustados en una
pagina????


Un saludo,
Gema BM.

Preguntas similares