¿Como hago funcionar mi base datos con fotos?
me dice que se producido error 438 en tiempo de ejecución este objeto no admite esta propiedad o metodo ActiveSheet.Imagen1.Picture = LoadPicture("C:\Users\usuario\Documents\prueva\" & foto & ".jpg")
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
foto = Target.Value
ActiveSheet.Imagen1.Picture = LoadPicture("C:\Users\usuario\Documents\prueva\" & foto & ".jpg")
End If
1 respuesta
Respuesta de Raúl Guerrero
1