UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Borrar imagenes en seleccion el 04/01/15, 02:37 am

Invitado


Invitado
Buenos dias

Estoy tratando de borrar imagenes de una seleccion de celdas.
He encontrado en:
http://excelforo.blogspot.com.es/2012/05/vba-una-macro-de-excel-para-borrar-solo.html
De nuestro Foro que tanto nos ayuda:
Ignacio Téllez. (Igtelo mayo 30, 2012)
Esta macro muy buena :
Sub TipoObjetos()
Dim img As Shape
On Error Resume Next
For Each img In ActiveSheet.Shapes
     If img.Type = msoPicture Then img.Delete
Next
End Sub

Pero necesito cambiarla y que me quite las imagenes de una seleccion que yo seleccione, no de toda la pagina.
Un saludo
Archivos
BorradoImagenesSeleccion.xls
(133 KB)

2RESUELTO Re: Borrar imagenes en seleccion el 04/01/15, 03:48 am

Invitado


Invitado
Lo que quiero decir en selección, es que si selecciono un rango de celdas y filas que unas tienen imágenes y otras no, me quiten las imágenes que están dentro de la selección.
Un saludo

3RESUELTO Re: Borrar imagenes en seleccion el 05/01/15, 12:09 am

Invitado


Invitado
Tengo suerte, he conseguido lo que quería.
con esta macro:

Dim img As Shape
On Error Resume Next
For Each img In ActiveSheet.Shapes
If Not Application.Intersect(img.TopLeftCell, Selection) Is Nothing Then
If img.Type = msoPicture Then img.Delete
End If
Next

Me gusta compartir, lo que logro.
Un saludo

4RESUELTO Re: Borrar imagenes en seleccion el 05/01/15, 12:17 am

Igtelo


Hola Luis.

Ya no me acordaba de esto. Si lees más abajo del enlace que nos das, está lo que necesitas, solo le agregamos un Inputbox para dar el rango.

En lo personal me agrada la forma en que vas haciendo las preguntas, para mi así debe ser, una a una; con ello cada pregunta queda con su respuesta y quien entra al foro puede encontrar rápidamente información y/o solución a sus preguntas.

Gracias también a ti y cuando termines tu proyecto sería formidable lo subas al foro en Aportes y creo que a muchos nos ayudará.
Archivos
Luishc-BorradoImagenesSeleccion.xls
No tienes los permisos para descargar los archivos.
(161 KB)

5RESUELTO Re: Borrar imagenes en seleccion el 05/01/15, 12:18 am

Igtelo


Jejeje.

Entramos al mismo tiempo...

Gracias nuevamente.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.