Foros del Web » Soporte técnico » Ofimática »

Urgente Borrar Graficos

Estas en el tema de Urgente Borrar Graficos en el foro de Ofimática en Foros del Web. Hola! Tengo disenhado en VBA un formulario para crear graficos. Que codigo tengo que utilizar para que al clickear un boton en la hoja de ...
  #1 (permalink)  
Antiguo 07/04/2007, 08:56
 
Fecha de Ingreso: abril-2007
Mensajes: 4
Antigüedad: 17 años
Puntos: 0
Urgente Borrar Graficos

Hola!

Tengo disenhado en VBA un formulario para crear graficos.
Que codigo tengo que utilizar para que al clickear un boton en la hoja de excel se borren todos los graficos ya creados???
"ctrl + A" no funciona!!!

Gracias,
Fleming
  #2 (permalink)  
Antiguo 09/04/2007, 10:27
Avatar de abrahamvj  
Fecha de Ingreso: julio-2006
Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 17 años, 9 meses
Puntos: 18
Re: Urgente Borrar Graficos

Activa tu grabadora de macros, ve a EDICION - IR A.. - ESPECIAL - Elige "objetos", acepta, presiona suprimir, deten la grabadaora de macros, y listo, ya tienes tu codigo.

Abraham
  #3 (permalink)  
Antiguo 09/04/2007, 10:57
 
Fecha de Ingreso: abril-2007
Mensajes: 4
Antigüedad: 17 años
Puntos: 0
Re: Urgente Borrar Graficos

Gracias, voy a probarlo!!!
  #4 (permalink)  
Antiguo 09/04/2007, 17:00
 
Fecha de Ingreso: abril-2007
Mensajes: 4
Antigüedad: 17 años
Puntos: 0
Exclamación Re: Urgente Borrar Graficos

Me temo que no me sirve, ya que tengo botones y tb me los borra...
  #5 (permalink)  
Antiguo 10/04/2007, 13:37
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años
Puntos: 88
Sonrisa Re: Urgente Borrar Graficos

Hola !
La sugerencia de abrahamvj está en la línea de satisfacer tu necesidad, pues si la trabajas un poco llegarás al siguiente código:
Código:
Sub Macro1()
    For j = 1 To ActiveSheet.DrawingObjects.Count
        If Left(ActiveSheet.DrawingObjects(j).Name, 5) = "Chart" Then
            ActiveSheet.DrawingObjects(j).Delete
        End If
    Next j
End Sub
Prueba con él y luego nos cuentas.

Saludos.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:15.