[Resolvido]Abrir arquivo externo ao sistema com extensão .tif

Boa tarde.

Alguém tem algum exemplo ou código de como abrir um arquivo com extensão .tif?

Obrigado.

Norberto, gostaria de abrir utilizando um programa externo como por exemplo o que vc sugeriu.

Pois é Norberto, o meu problema está sendo exatamente este, ou seja, abrir com qualquer outro editor de imagens, talvez não tenha sido claro, gostaria de abrir este tipo de aquivo através do access (VBA).

No sistema que desenvolvi os usuários tem a possibilidade de lincar vários arquivos externos a um determinado registro, por exemplo, tem um form onde o usuário trabalha informações referente a um determinado projeto onde neste mesmo form existe uma listbox em que o usuário tem a possibilidade de abrir o explorer do Windows e armazenar o caminho de alguns tipos de arquivos, porém são os básicos dos office + pdf. Outro detalhe, após o usuário ter lincado os arquivos de sua escolha a um determinado projeto ele consegue abrir os mesmos clicando 2 vezes em cima do nome do arquivo mostrado na listbox.

Aí surgiu a pergunta se isto não daria para ser feito também com os arquivos .tif, pois são arquivos bastantes usados na empresa.

Espero ter sido mais claro.

Existem varias maneiras;

1ª
No evento VBA ao pressionar de um botão;


Private Sub SeuBotão_Click()
Dim CaminhoDaImagem As String
CaminhoDaImagem = "C:\SuaImagem.tif"
Dim S As Object
Set S = CreateObject("WScript.Shell")
S.Run "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & CaminhoDaImagem
End Sub


2ª
Por FollowHyperlink também no botão:


Private Sub SeuBotão_Click()
Dim CaminhoDaImagem As String
CaminhoDaImagem = "C:\SuaImagem.tif"
Application.FollowHyperlink CaminhoDaImagem
End Sub


3º
Pelo item selecionado da listbox:

Private Sub SeuBotão_Click()
Dim CaminhoDaImagem As String
'Drive e Pasta por defeito + o item da lista se estiver no 1º campo da lista que é o ItemData(0)
CaminhoDaImagem = "C:\" & Me.SuaLista.ItemData(0)
Application.FollowHyperlink CaminhoDaImagem
End Sub

Maravilhoso!!!!!

Funcionou perfeitamente!!!

Obrigado Norberto e JPaulo.

Abraço.

Obrigado pelo retorno, o fórum agradece.