Macro para abrir un archivo .pdf

Hola GR,

Se me ocurren estas tres:

Sub test1()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Run "e:\prueba.pdf"
End Sub

Sub test2()
Dim x, App As String, Prog As String, Archivo As String
Prog = Environ(19)
App = Mid(Prog, InStr(Prog, "=") + 1, Len(Prog)) _
& "\Adobe\Acrobat 7.0\Reader\AcroRd32.exe"
Archivo = "e:\prueba.pdf"
x = Shell(App & " " & Archivo, 1)
End Sub

Sub test3()
Dim x, Archivo As String
Archivo = "e:\prueba.pdf"
x = Shell("cmd.exe /c " & Archivo, 1)
End Sub

Saludos,
KL


"GR" wrote in message news:

Hola buen dia

Alguien me podria ayudar por favor con el codigo (macro) para abrir un
archivo (formato) que esta en adobe acrobat, es decir, tengo una hoja de
calculo en excel y quisiera por abrir mi formato de .pdf con un boton desde
excel

Espero haberme explicado y les agradezco de antemano sus comentarios

Gracias