Hola que tal a todoexpertos ocupo de como poner una imagen en un control con VBA

quiero poner una imagen en un control pero el detalle es que primero capturo el nombre de la imagen con un inputbox luego le doy la ruta donde esta guardada la imagen pero me marca un error aquí les dejo el código que utilizo

Sub buscarimagen()
Dim nombre As String
nombre = InputBox("Nombre de la Código Bidimensional", "Facturación CBB")
If nombre = vbNullString Then
Exit Sub
Else
Image1.Picture = LoadPicture("C:\Documents and Settings\alejandro\Mis documentos\Mis imágenes\" & nombre & ".BMP")
End If
End Sub

espero que me puedan ayudar

1 Respuesta

Respuesta
1

Debido a que estás utilizando un control IMAGE insertado en la hoja debes anteponer el objeto hoja delate de image1. La línea correcta sería así:

activesheet.Image1.Picture = LoadPicture("C:\Documents and Settings\alejandro\Mis documentos\Mis imágenes\" & nombre & ".BMP")

recuerda finalizar y puntuar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas