TUTORIALES - TICS
Private Sub Image1_Click()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("F24")) Is Nothing Then
Image1.Picture = _
LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpeg")
End If
End Sub