Codigo para borrar dibujos

24/07/2003 - 04:34 por Gerardo Roda | Informe spam
Tengo en un libro de Excel este cofigo (en esapñol)

HojasCaculo("hoja1").ObjetosDibujados.Eliminar

Como seria en ingles ?

otra

como seria si en vez de borrar los dibujos en toda la hoja solo fuera en un
rango ?

Gracias

Gerardo
 

Leer las respuestas

#1 Fernando Arroyo
24/07/2003 - 09:00 | Informe spam
"Gerardo Roda" escribió en el mensaje news:%
Tengo en un libro de Excel este cofigo (en esapñol)

HojasCaculo("hoja1").ObjetosDibujados.Eliminar

Como seria en ingles ?




Sub BorrarTodosLosDibujos()
Dim sh As Shape

For Each sh In Worksheets("Hoja1").Shapes
sh.Delete
Next sh

Set sh = Nothing
End Sub

otra

como seria si en vez de borrar los dibujos en toda la hoja solo fuera en un
rango ?




Sub BorrarDibujosEnRangoA1_D25()
Dim sh As Shape

For Each sh In Worksheets("Hoja1").Shapes
If Not Intersect(sh.TopLeftCell, sh.Parent.Range("A1:D25")) Is Nothing Then sh.Delete
Next sh

Set sh = Nothing
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel


Gracias

Gerardo


Preguntas similares