topic Re: There is a macro which generates table box dynamically.How do I change the presentation (alignment) of the table box dynamically? in QlikView

There is a macro which generates table box dynamically.How do I change the presentation (alignment) of the table box dynamically?

Mon, 08 May 2017 11:17:53 GMT

How do I change the alignment of the data of table box and the header ?

sub test1234

Dim tb

Set tb= ActiveDocument.GetSheetObject("TB124")

set clus1 = ActiveDocument.Variables("Vbranch_Z")

clus = clus1.GetContent.String

tb.removeField(1)

tb.removeField(0)

tb.AddField "ORDER_KEY_" & clus

tb.AddField "Clus_input_" & clus

set tbp = tb.GetProperties

set cols = tbp.Layout.ColLayouts

cols.Item(0).Label.v = "Name"

cols.Item(1).Label.v = "ID"

tb.SetProperties tbp

End Sub

Re: There is a macro which generates table box dynamically.How do I change the presentation (alignment) of the table box dynamically?

m_woolf — Mon, 08 May 2017 14:02:07 GMT

From the API Guide:

set mybox = ActiveDocument.ActiveSheet.CreateTableBox

mybox.AddField "Class"

mybox.AddField "ClassComment"

set tbp = mybox.GetProperties

tbp.Layout.HeaderMultiLine = 2

tbp.Layout.ColLayouts.Item(0).LabelVerticalAdjust = 4 'center

tbp.Layout.ColLayouts.Item(0).LabelAdjust = 1 'center

mybox.SetProperties tbp

Re: There is a macro which generates table box dynamically.How do I change the presentation (alignment) of the table box dynamically?

Mon, 08 May 2017 19:12:21 GMT

This code snippet is helpful in making the Label Center Justified. I want to make the data within these labels center justified,ike the numbers 1, 2,3(i. e. the data within the column ID center justified.And Also How do i increase the size of the table box from default.Could you please guide me on this.

Re: There is a macro which generates table box dynamically.How do I change the presentation (alignment) of the table box dynamically?

Tue, 09 May 2017 06:55:05 GMT

set tbp = tb.GetProperties

set cols = tbp.Layout.ColLayouts

cols.Item(0).Label.v = " ID"

cols.Item(0).ColWidth = 500

cols.Item(0).LabelVerticalAdjust = 4

cols.Item(0).LabelAdjust = 1

cols.Item(0).NumAdjust = 1

cols.Item(1).Label.v = "Name"

cols.Item(1).ColWidth = 500

cols.Item(1).LabelVerticalAdjust = 4

cols.Item(1).LabelAdjust = 1

cols.Item(1).TextAdjust = 1

tb.SetProperties tbp

I could solve the problem by your suggestions .I used API Guide as well.