Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Abrir Imagem no Vis...
 
Notifications
Clear all

Abrir Imagem no Visualizador do Windows

 
2024 - VBA & Macros
Post Recente por Alvaro 7 anos atrás
3 Posts
2 Usuários
0 Reactions
1,472 Visualizações
RSS
 Alvaro
(@alvaro)
Posts: 0
New 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

 
Postado : 14/05/2017 6:05 pm
 Alvaro
(@alvaro)
Posts: 0
New Member
Topic starter
 

Muito obrigado, Mauro.
PERFEITO.

 
Postado : 14/05/2017 7:10 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico