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 !

Mostrar la cita
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
#2 Fran
17/07/2006 - 09:10 | Informe spam
Hola Hector.

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

Mostrar la cita
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.
#4 Fran
17/07/2006 - 09:35 | Informe spam
Mostrar la cita
LO DEL MODULO NO LO ENTIENDO MUY BIEN PORQUE NO ENTIENDO MUCHO DE
MACROS
Mostrar la cita
LA HOJA NO ESTA PROTEGIDA
Mostrar la cita
SON IMAGENES TIFF O JPGE
Mostrar la cita
SI
Mostrar la cita
C MAYUSCULA
Mostrar la cita
#5 Héctor Miguel
18/07/2006 - 06:19 | Informe spam
hola, Fran !

Mostrar la cita
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.
Ads by Google
Search Busqueda sugerida