Enlarge pics on worksheet...can this be done??

[brad2157]

I am working on a workbook that has several sheets within it with various information. Each spreadsheet has several pictures on it as well. I would like to have it so that when the small picture is clicked on, then it will pop up a box with a larger version of that particular picture. This would allow small details to be seen, without having to manually drag to resize each picture you wanted to view. I am not even sure this is possible what I am wanting to do.

 

[erik.van.geit]

hello,

You can find a lot of examples to open workbooks in a specific folder here on the Board, of course this will need a bit time ...
here is one

Option Explicit

Public WB As Workbook

Sub open_wb_public_ref()
Dim Filename As String
Dim response As String

Filename = Application.GetOpenFilename(FileFilter:="Excel Files,*.xls", Title:="Please choose workbook to open")
  If Not Chk(Filename) Then
  'If Filename = "False" Then
  response = MsgBox("No file selected" & Chr(10) & "procedure canceled!", 48, "Error")
  Exit Sub
  Else: Set WB = Workbooks.Open(Filename)
  End If
End Sub

Function Chk(myFile As String) As Boolean
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Chk = fso.FileExists(myFile)
Set fso = Nothing
End Function

but perhaps you want to do something else ?
what is "to go to a file location"

best regards,
Erik