How to open a jpg file using VBA?

[marlonsaveri]

Hi, I have some pictures inside pages from a multipage. I want when someone click twice, the realy image opens with windows.

Dim ListOfFiles(100) as string
(...)
Private Sub MultiPage1_DblClick(ByVal Index As Long, ByVal Cancel As MSForms.ReturnBoolean)
    
    Dim NumPag As String
    
    NumPag = MultiPage1.value
    'open file ListOfFiles(NumPage)
End Sub

 

[Ralajer]

This is an indirect way to do it but it the only one I could think of.

Visit http://www.vbaexpress.com/kb/getarticle.php?kb_id=971 and copy their commandline function. That will allow you to send commands directly to Window's Command Line.

For your purposes you can just send the image file name and path as a command and the default program will open it.

Public Function CommandLine(command As String, Optional ByVal keepAlive As _
    Boolean = False, Optional windowState As VbAppWinStyle = VbAppWinStyle.vbHide) As Boolean
'''...
'''... VBAEXPRESS FUNCTION
'''...
End Function

Private Sub MultiPage1_DblClick(ByVal Index As Long, ByVal Cancel As MSForms.ReturnBoolean)
    
    Dim NumPag As String
    Dim filePath As String
    
    NumPag = MultiPage1.Value
    
    filePath = ListOfFiles(NumPage)
    
    '// Surrond string with quotation marks if file path contains any spaces
    If InStr(1, filePath, " ") Then
        filePath = """" & filePath & """"
    End If
    CommandLine filePath, False
    
End Sub

Worked for my test case. Let me know if it works out for you.