Hello,

> From: Bernard Marcelly [mailto:[email protected]] 
> Sent: Thursday, April 23, 2015 3:24 PM
> To: [email protected]
> Subject: Re: Disable underline - UnoControlFixedHyperlinkModel
> 
> 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 color is now black. 
> If you want to 
> color the text, add this instruction:
> 
>    .TextColor = RGB(0,0,250)

works fine, thank you


Greetings,
Jörg


---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]

Reply via email to