Abrir la dirección de una carpeta (3)
Quiero Una Macro que me abra la dirección de una capeta que esta escrito en una Celda en una ventana emergente y que cuando seleccione una imagen me abra en el visualizador.
Ejemplo en la Ceda dice los siguiente:
Celda B3 = C:\Users\USER\Desktop\
selecciono una imagen Cualquiera
y que abra con el programa de Visualizador de Fotos de WindowsXE
Desde ya Gracias
2 Respuestas
Respuesta de Dante Amor
1
Te anexo la macro para abrir la carpeta que tienes en la celda B3.
Seleccionas un archivo de imagen y te lo abre con el visor de windows
Sub abrearchivo()
'Por.Dant Amor
Application.DisplayAlerts = False
ruta = Range("A1")
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione archivo de excel"
.Filters.Clear
.Filters.Add "All Files", "*.*"
.AllowMultiSelect = False
.InitialFileName = ruta
If .Show Then
ActiveWorkbook.FollowHyperlink .SelectedItems.Item(1), NewWindow:=True
End If
End With
End SubSaludos.Dante Amor
Disculpa, la macro decía celda A1, ya le puse la celda B3, igual y la puedes cambiar.
Sub abrearchivo()
'Por.Dant Amor
Application.DisplayAlerts = False
ruta = Range("B3")
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione archivo de excel"
.Filters.Clear
.Filters.Add "All Files", "*.*"
.AllowMultiSelect = False
.InitialFileName = ruta
If .Show Then
ActiveWorkbook.FollowHyperlink .SelectedItems.Item(1), NewWindow:=True
End If
End With
End Sub
Respuesta de Programar Excel
1
