Eliminar imagen con una macro

14/07/2006 - 18:20 por Fran | Informe spam
Necesitaria hacer una macro que cuando en la columna A aparezca una
letra C elimine una imajen que este en la columna B y en la misma fila
donde aparece la letra C.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
14/07/2006 - 19:05 | Informe spam
hola, Fran !

... macro que cuando en la columna A aparezca una letra C
elimine una imajen que este en la columna B y en la misma fila donde aparece la letra C.



los objetos 'shape' como las imagenes incrustadas en las hojas, NO son 'parte de' las celdas
[aunque...] puedes 'ver si coincide' su posicion [propiedad .TopLeftCell] con la direccion de alguna celda 'especifica'
[sin embargo...] seria necesario hacer un 'ciclo de busqueda' por TODAS las figuras que contenga la hoja
[lo bueno es que...] puedes 'descartar' los objetos 'shape' que NO sean del tipo 'msoPicture'

prueba con algo +/- como lo siguiente, y... si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en el modulo de codigo de la hoja donde se eliminaran las imagenes ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Then Exit Sub
If Target <> "C" Then Exit Sub
Dim Fig As Shape
For Each Fig In ActiveSheet.Shapes
If Fig.Type = msoPicture _
And Fig.TopLeftCell.Address = Target.Offset(, 1).Address _
Then Fig.Delete: Exit For
Next
End Sub
Respuesta Responder a este mensaje
#2 Fran
17/07/2006 - 09:10 | Informe spam
Hola Hector.

Copio la macro que me embias y no funciona
Respuesta Responder a este mensaje
#3 Héctor Miguel
17/07/2006 - 09:26 | Informe spam
hola, Fran !

... la macro... no funciona



las -posibles- 'causas' pudieran ser varias -?- [p.e.]
- en que tipo de modulo la pegaste ?
- esta la hoja protegida ?
- que tipo de figura/imagen/objeto/... es el que se debe eliminar ?
- estas seguro que se encuentra -precisamente- en la celda donde se supone ?
- la letra que elimina es 'C'... 'c'... [o solo empieza con 'c'] ?
- seleccionas mas de una celda ?
- ???

comentas algun detalle mas... 'significativo' ?
saludos,
hector.
Respuesta Responder a este mensaje
#4 Fran
17/07/2006 - 09:35 | Informe spam
- en que tipo de modulo la pegaste ?


LO DEL MODULO NO LO ENTIENDO MUY BIEN PORQUE NO ENTIENDO MUCHO DE
MACROS
- esta la hoja protegida ?


LA HOJA NO ESTA PROTEGIDA
- que tipo de figura/imagen/objeto/... es el que se debe eliminar ?


SON IMAGENES TIFF O JPGE
- estas seguro que se encuentra -precisamente- en la celda donde se supone ?


SI
- la letra que elimina es 'C'... 'c'... [o solo empieza con 'c'] ?


C MAYUSCULA
- seleccionas mas de una celda ?
- ???

comentas algun detalle mas... 'significativo' ?
saludos,
hector.
Respuesta Responder a este mensaje
#5 Héctor Miguel
18/07/2006 - 06:19 | Informe spam
hola, Fran !

- en que tipo de modulo la pegaste ?



LO DEL MODULO NO LO ENTIENDO MUY BIEN PORQUE NO ENTIENDO MUCHO DE MACROS [...]



esta bien... esta bien... esta bien...

1) haz un 'click-secundario' [generalmente un 'click.derecho'] sobre el nombre de la hoja donde estan las imagenes
2) del menu contextual que aparece... selecciona -> ver codigo
3) en la ventana 'grande' que se muestre [a la derecha] en el editor de vba...
-> copia/pega las lineas con el codigo 'sugerido'
4) corre algunas pruebas y...

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida