Como poner una imagen a un control si desconozco la ubicación
hola todoexpertos quisiera que me echen una manita tengo un control de imagen y quiero ponerle una imagen de la cual puede variar la ubicacion
muchas gracias por adelantado
1 respuesta
Lamentablemente para ver una imagen en una control IMAGE tenemos que informarle de donde se encuentra con el path exacto. Si dices que puede variar, tendremos que informarle siempre a la macro de la ubicación mediante una entrada de datos tipo inputbox
pero yo quisiera que apareciere como por ejemplo al dar click en el botón que me va a buscar la imagen me abra la ventada de explorador de windows y si la imagen la tengo en una mem externa pueda yo buscar la imagen o un carpeta en c xxxx si se puede hacer eso
Disculpa por la demora pero estaba de vacaciones. Te paso un ejemplo como solicitas. Dibuja un botón en la hoja y adjudícale esta macro:
Sub imagen() 'por Luismondelo archivo = Application.GetOpenFilename If archivo = False Then Exit Sub ActiveSheet.Image1.Picture = LoadPicture(archivo) End Sub
El ejemplo está construído con un objeto image pegado directamente en la hoja, si lo quieres en un formulario la línea que está después del if quedaría así:
Image1.Picture = LoadPicture(archivo)
Recuerda finalizar la consulta
Te mando un saludo.
