Abrir Imagem no Visualizador do Windows

2024 - VBA & Macros

Post Recente por Alvaro 8 anos atrás

3 Posts

2 Usuários

0 Reactions

1,483 Visualizações

RSS

Alvaro

(@alvaro)

Posts: 78

Trusted Member

Topic starter

Boa noite pessoal, como eu faço para abrir uma imagem que foi carregada em um Image1, no visualizador de imagem do Windows?

A Macro que estou usando para carregar a imagem no Image1, é a seguinte.

Dim FotoAntes As String

Private Sub Add_FotoAntes_Click()

On Error Resume Next

    FotoAntes = Application.GetOpenFilename("Imagem (*.jpg;*.jpeg;*.gif;*.png), *.jpg;*.gif;*.jpeg;*.png,Todas (*.*), *.*", Empty, "Desenvolvido por.: Álvaro Horta", Empty, Empty)
    If FotoAntes <> "" Then
        Image1.Picture = LoadPicture(FotoAntes)
   End If
   MultiPage2.Value = 0
   MultiPage2.Value = 1
       
End Sub

Desde já, muitíssimo obrigado!!

Postado : 14/05/2017 4:21 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Não sei se entendi o que pretende, mas para abrir uma imagem no Visualizador do Windows, você pode usar a rotina abaixo, só ajuste os caminhos:

Sub AbreVisualizadorWindows()

    Dim Path As String
    
    Path = "C:UsersAlvaroDocumentsSuaFigura.jpg"
    
    Shell "rundll32.exe C:WINDOWSSystem32shimgvw.dll,ImageView_Fullscreen " & Path, vbNormalFocus

End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 14/05/2017 6:05 pm