Saturday, 17 August 2013

How to Paste Picture Hyperlink in a Cell of Excel

Set objExcel = CreateObject(”Excel.Application”)
Set objWorkbook = objExcel.WorkBooks.Open(”c:\Execution_Result_3_2_2011_7_41_41.xls”)
Set objDriverSheet = objWorkbook.Worksheets(”Global”)
objExcel.Visible=True
RowNumber=4
C = “N” & RowNumber
objExcel.ActiveSheet.range(C).Select
objDriverSheet.Hyperlinks.Add objExcel.Selection, “C:\2_3_2011 7_44 16 AM.jpg”
objDriverSheet.Range(C).WrapText = True

No comments:

Post a Comment