Eliminar imagen de celda activa

¿Me podrían ayudar con el código para eliminar solo la imagen de la celda activa?

1 respuesta

Respuesta
1
Sub BorrarImg()
  Dim img As Shape
  For Each img In ActiveSheet.Shapes
    If Not Intersect(img.TopLeftCell, img.BottomRightCell, ActiveCell) Is Nothing Then
      img.Delete
    End If
  Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas