Cuando escribo una referencia en la columna "E", que no tenga foto, me salga la foto, 1.Gif.
Cuando escribo una referencia en la columna "E", que no tenga foto, me salga la foto, 1.Gif.
Y cuando borre la referencia, se me borre la foto que tenia en la columna "D"
Por más que intento conseguirlo, no puedo.
Las macros son:
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect Password:="1"
'esto limpia la Hoja de las imágenes cuando se selecciona la Hoja
On Error Resume Next
'ActiveSheet.Pictures.Delete
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="1"
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
' AGREGAR FOTOS
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
On Error Resume Next
If Union(Target, [E4:E2000]).Address = [E4:E2000].Address Then
If Target <> "" Then
Application.ScreenUpdating = False
ActiveSheet.Pictures.Delete
For A = 4 To 2000
If Cells(A, 5) <> "" Then
img = Cells(A, 5)
img_jpg = "G:\Factura\Fotos\" & img & ".jpg"
img_gif = "G:\Factura\Fotos\" & img & ".gif"
Set etiqueta = ActiveSheet.Pictures.Insert(img_jpg)
If Err.Number = 1004 Then Set etiqueta = ActiveSheet.Pictures.Insert(img_gif)
izq = 2 - Cells(A, 4).Column
With etiqueta
.Left = Cells(A, 5).Offset(0, 4 - Cells(A, 5).Column).Left 'posicion izquierda
.Top = Cells(A, 5).Top 'posicion altura
.Width = 50 'ancho imagen
.Height = 65 'alto imagen
End With
End If
Next A
Application.ScreenUpdating = True
End If
End If
End Sub