Macro to view a PNG file using paint

[fraz627]

I need a macro to open a PNG file using paint, with out using a hyperlink.

the path will be C:\USERS\USER\DESKTOP\Schematics\2302-0014-0100-Schematic.png

Thanks

 

[Burrgogi]

Your question has absolutely nothing to do with MS Excel.

 

[fraz627]

May be I was not clear on what I wanted. l have a sheet with a column of schematic numbers ex 2302-0014-0100, when I double click on the number I would like to open the file C:\USERS\USER\DESKTOP\Schematics\2302-0014-0100-Schematic.png. Now I can configure the path, but I cannot open the file, I would prefer not to do it with out a Hyperlink.

 

[Burrgogi]

May be I was not clear on what I wanted. l have a sheet with a column of schematic numbers ex 2302-0014-0100, when I double click on the number I would like to open the file C:\USERS\USER\DESKTOP\Schematics\2302-0014-0100-Schematic.png. Now I can configure the path, but I cannot open the file, I would prefer not to do it with out a Hyperlink.

None of that was explained in your original posting.

I don't think that's even possible to do by double-clicking on a cell.

 

[Scott Huish]

None of that was explained in your original posting.

I don't think that's even possible to do by double-clicking on a cell.

Not sure why not.

This is set for Column A, change as necessary.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
Set c = Intersect(Target, Range("A:A"))
If c Is Nothing Then Exit Sub
Cancel = True
Shell "mspaint " & c, vbNormalFocus
End Sub

 

[fraz627]

Not sure why not.

This is set for Column A, change as necessary.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
Set c = Intersect(Target, Range("A:A"))
If c Is Nothing Then Exit Sub
Cancel = True
Shell "mspaint " & c, vbNormalFocus
End Sub

Thanks that did the trick