Botón Examinar archivos y imágenes en Formulario VBA Excel
Implementa un botón «Examinar» en un formulario VBA de Excel que permita a los usuarios seleccionar archivos (imágenes u otros archivos), puedes usar el objeto FileDialog. Este objeto proporciona una interfaz de diálogo para seleccionar archivos.
Código en el botón Examinar
Private Sub CommandButton1_Click()
Dim Dialogo As FileDialog
'Limpie
'Set Dialogo = Nothing
'Fin
Set Dialogo = Application.FileDialog(msoFileDialogFilePicker)
'Dialogo.Filters.Clear
Dialogo.Filters.Add "Imágenes", "*.gif; *.jpg, *.png"
Dialogo.AllowMultiSelect = False
If Dialogo.Show = -1 Then
Txt_Ruta.Value = Dialogo.SelectedItems(1)
Image1.Picture = LoadPicture(Txt_Ruta.Value)
Else
'MsgBox "Nada"
End If
'Set Dialogo = Nothing
End Sub
Image1.Picture = LoadPicture(Txt_Ruta.Value)
Bnas Tio tech, este ultimo algoritmo no se me ejecuta…me podrias orientar…ya he mirado el video varias veces…..y me arroja ….Error del metodo o dato del miembro…gracias
Me ocurrio que tenia mis fotos en una carpeta como me recomendaron, me paso igual que a Ud, no me queria ejecutar el mismo comando, pues del cuadro excel borre las fotos y las volvi a colocar en editar o modificar y de alli en adelante me corrio bien
Buenas tardes este algoritmo esta de color verde Txt_Ruta.Value = Dialogo.SelectedItems(1) deben de quitar una comilla que tiene alli y se van a dar cuenta que si funciona
VERIFICA SI TU CUADRO DE TEXTO SE LLAMA Txt_Ruta, si no es asi ponle el que tiene por lo general es Textbox1, 2, 3,4…n
hola Miguel, excelente trabajo:gracias por todo…pasa que en la tarea de ingresar dos calendarios al formulario me dice duplicación de código o algo así y es donde me perdí pero como cachorro en procesión …ayuda… saludos y nuevamente GRACIAS..muak
holaaaa… y solo tenía que ir al siguiente vídeo…. jajaja a ver ahora como me va …saludos
hola Tio Tech, tube problemas cuando quise descargar el linck que tienes en tu página del calendario, el mismo contiene virus, te lo menciono por precaución, tuve que limpiar la compu por completo para poder resolver, el virus es de clase Troyano, precaución.