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

最新推荐文章于 2022-04-25 11:10:32 发布

liuyukuan

最新推荐文章于 2022-04-25 11:10:32 发布

阅读量1.5k

点赞数

分类专栏： Excel AutoHotkey 操作系统效率 Word 热键

AutoHotkey 同时被 3 个专栏收录

394 篇文章 125 订阅

订阅专栏

操作系统

189 篇文章 4 订阅

订阅专栏

热键

105 篇文章 5 订阅

订阅专栏

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