¿Por qué este código no carga la imagen en mi archivo pero en el original si?
Private Sub CommandButton1_Click()
imag = ThisWorkbook.Path & "\img\" & TextBox1 & ".jpg"
On Error Resume Next
Image1.Picture = LoadPicture(imag)
End Sub
Respuesta de Dante Amor
1
Quita esta línea
On Error Resume Next
Prueba otra vez y escribe aquí qué dice el mensaje de error.
Prueba esto y revisa si el archivo que aparece en el msg realmente existe en la carpeta
Private Sub CommandButton1_Click() Dim imag As String imag = ThisWorkbook.Path & "\img\" & TextBox1 & ".jpg" If Dir(imag) = "" Then MsgBox "No existe el archivo : " & imag Else Image1.Picture = LoadPicture(imag) End If End Sub
En lo sucesivo procura insertar el código con el icono para Insertar código fuente.
Importante:
