[AHK]在Excel中用热键创建超链接

Hyperlink in Excel 2010 using COM?

https://autohotkey.com/board/topic/72914-hyperlink-in-excel-2010-using-com/

F1::	; example 1:设置Excel的热链接

oExcel := ComObjActive("Excel.Application")
filePath:="X:\ahk\excel\Picture.png"
oExcel.ActiveSheet.Hyperlinks.Add(oExcel.ActiveCell,filePath,"","Click here to see Picture","Picture")
return

F2::	; example 2: http://www.autohotkey.com/forum

oExcel := ComObjActive("Excel.Application")
oExcel.ActiveSheet.Hyperlinks.Add(oExcel.ActiveCell, "http://www.autohotkey.com/forum","","Click here to visit Autohotkey forum","Autohotkey forum")
return

F3:: 
html=http://www.autohotkey.com/forum
text=Click here to visit
Hyper1 = =hyperlink("%html%","%text%")
xl :=   ComObjActive("Excel.Application")
xl.ActiveCell.Formula :=   Hyper1
return


F4:: 
html:="X:\ahk\excel\Picture.png"
text=Click here to visit
Hyper1 = =hyperlink("%html%","%text%")
xl :=   ComObjActive("Excel.Application")
xl.ActiveCell.Formula :=   Hyper1
return