VBA: ShellExecute o cómo abrir desde Excel otros archivos.

En un post anterior del blog expuse el empleo de una función API para reproducir un sonido (ver).
En esta ocasión comentaré una nueva función API que nos permitirá abrir cualquier tipo de archivo tan sólo informando de dónde se encuentra (cuál es su ruta), sin saber el nombre de la aplicación asociada; en respuesta a la pregunta planteada:

...una macro que logre hipervincular los nombres de varias imágenes (p.e. a.jpg, b.jpg, c.jpg, etc) que están en una columna, con las imágenes, propiamente dichas, que están en la siguiente carpeta: "D:\BancoFotos\". Para logra que con un click en el nombre de la imagen abra dicha imagen...

Antes de 'meternos en faena' me gustaría comentar, de manera muy superficial, qué es una API y cuán peligroso puede llegar a ser, si no se emplea adecuadamente... comenzar diciendo que antes de llamar a funciones de Microsoft Windows (API), debemos entender cómo las DLL de API de Windows tratan los argumentos y tipos de datos, ya que las llamadas incorrectas a funciones de Windows pueden causar errores de páginas no válidas u otro comportamiento imprevisto.
También podemos leer una introducción en Wikipedia

En nuestro ejercicio de hoy no existe peligro alguno, ya que sólo abriremos un fichero desde nuestra hoja de cálculo... para este trabajo emplearemos la función API ShellExecute.
Esta función API 'ShellExecute' dispone de seis parámetros, muchos de ellos opcionales:

1- hWnd: Identifica la ventana principal. Esta ventana recibe las cajas de mensajes que una aplicación produce (por ejemplo, para el informe de errores).
2- lpOperation: Especificamos la acción que queremos realizar al ejecutar nuestra función. Podrían ser entre otras las siguientes acciones:

1. "Open" = nuestra función abrirá el archivo especificado por el parámetro siguiente 'lpFile'. El archivo podrá ser indistintamente un ejecutable (.exe) o cualquier otro tipo de documento (.jpg, .pdf, etc., etc.), incluso podría ser sencillamente una carpeta o directorio.
2. "Print" = La función imprimiría el archivo indicado por 'lpFile', lógicamente el archivo deberá ser algún tipo de documento no ejecutable, ya que en caso de serlo, simplemente lo abriría... (si así estuviera indicado).
3. "Explore" = La función 'exploraría' la carpeta/directorio indicada por 'lpFile'.
4. "Play" = Para aquellos métodos que soportan una función Play, como archivos de sonido...
5. "Properties" = Detallaría las propiedades del archivo.
6. 0& = el argumento 'lpOperation' puede ser también NULL (vbNullString si declaramos la variable como String, o bien 0& si queda declarada de cualquier otra forma). En estos casos la función toma la acción por defecto, que es OPEN.

3- lpFile: Este argumento queda definido como una cadena (String) que especifica la ruta del archivo que queremos abrir, imprimir, explorar, etc. Recuerda, lo hemos visto antes, que la función puede abrir indistintamoente ejecutables o documentos de cualquier tipo, pero sólo puede imprimir archivos tipo documento.
4- lpParameters: Si hemos informado en el anterior 'lpFile' un archivo ejecutable (.exe), entonces 'lpParameters' será una cadena(String) que detalle los parámetros para que opere dicha aplicación. Si 'lpFile' fuera un archivo tipo documento, 'lpParameters' debería ser NULL (0& or vbNullString).
5- lpDirectory: Cadena que identifica la carpeta/directorio de trabajo por defecto.
6- nShowCmd : Cómo queremos ver la applicación cuando se ejecute y abra:

Valor
• 0 = oculta la ventana de activación y pasa a otra ventana.
• 1 = Activa y muestra una ventana. Si la ventana está Minimizada o Maximizada , Windows la restaura a su tamaño y posición original (igual que 9 ).
• 2 = Activa una ventana y la muestra en forma de icono .
• 3 = Activa una ventana y lo muestra como una ventana Maximizada.
• 4 = muestra una ventana en su tamaño más reciente y posición. La ventana que está actualmente permanece activa.
• 5 = Activa una ventana y lo muestra en su actual tamaño y la posición.
• 6 = Minimiza la ventana especificada y activa la ventana de nivel superior en la lista del sistema.
• 7 = Muestra una ventana como un icono. La ventana que está actualmente activa permanece activa.
• 8 = Muestra una ventana en su estado actual. La ventana que está actualmente activa permanece activa.
• 9 = Activa y muestra una ventana. Si la ventana está Minimizada o Maximizada, Windows restaura a su tamaño y posición original (lo mismo que 1).

Añadiremos nuestro código en la Hoja de trabajo, asociándolo a un evento _BeforeDoubleClick:

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strFile As String
Dim strAction As String
Dim lngErr As Long

'ruta del archivo.
strFile = "E:\excelforo\Fotos\" & Target.Value
'las acciones pueden ser OPEN, NEW u otras; todo depende de qué necesitemos
strAction = "OPEN"
'llamamos a la funicón API
lngErr = ShellExecute(0, strAction, strFile, "", "", 0)

End Sub

Estamos listos para trabajar, bastará hacer doble clic sobre una celda cualquiera de la hoja para que la función busque y abra el fichero (sea cual sea) en la ruta especificada cuyo nombre corresponda con el valor de la celda 'clicada'...