topic Re: Macro to set Listbox Font Name in QlikView

Macro to set Listbox Font Name

m_woolf — Tue, 03 Oct 2017 19:25:37 GMT

This macro works fine unless the FontName contains a Space. Any ideas?

sub SetFont

set val=ActiveDocument.Fields("FontName").GetSelectedValues

strFontName = val.Item(0).Text

set mybox = ActiveDocument.GetSheetObject("LB02")

mbp = mybox.GetProperties

mbp.Layout.Frame.Font.FontName = strFontName

mbp.Layout.Frame.Font.Bold = false

mbp.Layout.Frame.Font.Italic = false

mbp.Layout.Frame.Font.Underline = false

mybox.SetProperties mbp

end sub

Re: Macro to set Listbox Font Name

marcus_sommer — Wed, 04 Oct 2017 13:06:36 GMT

If I use the follwing it worked:

sub SetFont

'set val=ActiveDocument.Fields("FontName").GetSelectedValues

strFontName = "Courier New" ' "Arial Baltic" 'val.Item(0).Text

set mybox = ActiveDocument.GetSheetObject("LB23")

mbp = mybox.GetProperties

mbp.Layout.Frame.Font.FontName = strFontName

mbp.Layout.Frame.Font.Bold = false

mbp.Layout.Frame.Font.Italic = false

mbp.Layout.Frame.Font.Underline = false

mybox.SetProperties mbp

end sub

or did you mean something different?

- Marcus

Re: Macro to set Listbox Font Name

m_woolf — Wed, 04 Oct 2017 14:29:34 GMT

Marcus,

Thanks for your reply. Yes, it works if I hard code "Courier New" in the vbscript. But when I read the FontName from data, it doesn't work.

I attached a sample QVW.

Re: Macro to set Listbox Font Name

marcus_sommer — Wed, 04 Oct 2017 15:04:27 GMT

I assume that your source is copied from any html-source and is messed with a "non-standard" white-space and needs to be cleaned with something like this:

strFontName = replace(strFontName, chr(160), chr(32))

- Marcus

Re: Macro to set Listbox Font Name

m_woolf — Wed, 04 Oct 2017 16:21:08 GMT

You're the Man!