[Solved] Macro to convert a HTTP valid web address from

[alf50]

Is there a Macro to convert an HTTP valid web address in an OpenOffice Calc Cell from Plain Text to a Clickable link.

I have discovered that if I simply add a space to the end of the http web link, the cell changes color and becomes clickable.

Can I do that with a Macro? I tried just adding a line saying:

oCell.string = WebLinkString & " ", but that does not seem to work.

Any suggestions?

[RusselB]

I've had some, though not complete, success using the HYPERLINK function.
I don't know why, but it seems to work when the optional Display Text (2nd parameter) is included, but not when it is omitted.

I know you asked for a macro, but thought this might be a decent or temporary work around.

[Zizi64]

oCell.string = WebLinkString & " "

All of the cells contain more than one type of the content (in same time):
oCell.String
oCell.Value
oCell.Formula
oCell.FormulaLocal

Your command will set the string only. Try to set the Formula as RusselB suggested:

Code: Select all

Sub SetLink

oDoc = Thiscomponent
oSheet = oDoc.Sheets.GetbyIndex(0)
oCell = oSheet.GetCellbyPosition(0,0)

sHlink = "http://portableapps.com/apps/office/libreoffice_portable"
sHlinkText = "LibreOffice Portable"

' The chr(34) is a " character.
oCell.Formula = "=HYPERLINK(" & chr(34) & sHlink & chr(34) & ";" & chr(34) & sHlinkText & chr(34) & ")"

End Sub

You can formatting the cell "as hyperlink like text" by a custom defined cellstyle.

[MrProgrammer]

Is there a Macro to convert an HTTP valid web address in an OpenOffice Calc Cell from Plain Text to a Clickable link.

There is no need for an evil macro. [Tutorial] Text to Columns, Q35/A35.