Hi,
We can not enlarge the picture by clicking on a cell. This can be done using a hyperlink.
There is a possiblities to insert an hyperlink which reffers to a path, below is the code
-- Vinod
We can not enlarge the picture by clicking on a cell. This can be done using a hyperlink.
There is a possiblities to insert an hyperlink which reffers to a path, below is the code
Code:
path_error_file = "C:\Documents and Settings\msafiullah\Desktop\\error.bmp"
nName = "ScreenShot"
Desktop.CaptureBitmap path_error_file,True
ExlFormula = "=HYPERLINK("&chr(34)&path_error_file&chr(34)&","&chr(34)&nName&chr(34)&")"
Set Excel = createobject("Excel.Application")
Set oBook = Excel.Workbooks.Open ("c:\MyExcel.xls")
oBook.ActiveSheet.cells(1,1).Formula = ExlFormula
oBook.Save
oBook.Close