Kbase P63336: How to add a hyperlink to a Microsoft EXCEL sheet cell using
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
1/19/2004 |
|
Status: Unverified
GOAL:
How to add a hyperlink to a Microsoft EXCEL sheet cell using 4GL?
FACT(s) (Environment):
Windows
FIX:
The following 4GL code demonstrates the syntax of how to add a hyperlink to a Microsoft EXCEL sheet cell:
DEFINE VARIABLE hExcel AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hWorksheet AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hAnchor AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE Address AS CHARACTER NO-UNDO.
DEFINE VARIABLE SubAddress AS CHARACTER NO-UNDO.
DEFINE VARIABLE ScreenTip AS CHARACTER NO-UNDO.
DEFINE VARIABLE TextToDisplay AS CHARACTER NO-UNDO.
CREATE "Excel.Application":U hExcel.
hExcel:WorkBooks:ADD().
ASSIGN
hWorksheet = hExcel:Worksheets("Sheet1":U)
hExcel:VISIBLE = TRUE
hAnchor = hWorksheet:Range("A1")
Address = "http://www.google.com"
SubAddress = ""
ScreenTip = "Click here to visit google"
TextToDisplay = "GOOGLE".
hExcel:Activesheet:Hyperlinks:Add(hAnchor, Address,'',ScreenTip, TextToDisplay).
RELEASE OBJECT hAnchor.
RELEASE OBJECT hWorksheet.
RELEASE OBJECT hExcel.