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