Macro que abra el visor de imágenes de windows

Abrir mediante alguna macro una imagen al apretar un botón, pero en el
Visor de imágenes de windows (no en internet explorer como lo hacen los
hipervínculos), no pretendo insertar la imagen es solo para consulta.

Yo sé como abrir la imagen en excel, pero siempre hay el riesgo de que
por accidente se borre información, asi que por eso es la necesidad de
abrir la imagen en el visor de imágenes.
Gracias por la atención prestada y la ayuda (manejo windows 7 y excel 2007)

1 Respuesta

Respuesta
1

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.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas