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.
 

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

Preguntas similares