Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: visor
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub visor()
carpeta = "C:\Documents and Settings\DAMOR\Mis documentos\docs\Soporte expertos\"
archivo = "agenda.jpg"
ShellExecute 0, "open", carpeta & archivo, "", "", 1
End Sub
En las líneas
carpeta = "C:\Documents and Settings\DAMOR\Mis documentos\docs\Soporte expertos\"
archivo = "agenda.jpg"
Tienes que poner la carpeta donde están los archivos de imágenes
y en archivo tienes que poner el nombre de archivo con su extensión
Si tienes el nombre de archivo en una celda, puedes cambiar la línea
archivo = "agenda.jpg"
Por ejemplo, si el nombre del archivo está en la celda “A5”, sería así
archivo = range(“A5”)
Saludos. Dam
Si es lo que necesitas.