Hello,
How can I stop underlining of hyperlinks in UnoControlFixedHyperlinkModel?
My current code is:
Dim dia_ueber
Dim frm_ueber
Dim fhm
GlobalScope.BasicLibraries.LoadLibrary(jum)
GlobalScope.DialogLibraries.LoadLibrary(jum)
frm_ueber = DialogLibraries.jum.dlg_ueber
dia_ueber =
Hi Jörg,
That's the usual problem of a structure inside a structure : you must use a
temporary variable.
Dim fd As Object
With fhm
'
fd = .FontDescriptor
fd.Underline = com.sun.star.awt.FontUnderline.NONE
.FontDescriptor = fd
End With
Remark : there is a side effect, the text