Object: 2DTableColumnHeaderSettings
- Updated2024-09-12
- 1 minute(s) read
(2DTableColumn | 2DTableColumnChannel | 2DTableColumnExpression | 2DTableColumnText | 2DTableColumnVariable) > 2DTableColumnSettings > Object: 2DTableColumnHeaderSettings
Object: 2DTableColumnHeaderSettings
The 2DTableColumnHeaderSettings object provides the header properties of a 2D table in DIAdem REPORT.
The following example generates a table with two columns. The second column uses individual parameters in the headers.
| VBScript | Python |
Dim oMy2DTable, oMyPosition, oMyColumn1, oMyColumn2, Col2HeadSettings, Col2TitleSettings Call Report.NewLayout() Set oMy2DTable = Report.ActiveSheet.Objects.Add(eReportObject2DTable,"My2DTable") Set oMyPosition = oMy2DTable.Position.ByBorder oMyPosition.Top = 30 oMyPosition.Bottom = 20 oMyPosition.Left = 20 oMyPosition.Right = 30 oMy2DTable.Settings.Header.Height = 20 Set oMyColumn1 = oMy2DTable.Columns.Add(e2DTableColumnChannel) oMyColumn1.Channel.Reference = "[1]/[1]" Set oMyColumn2 = oMy2DTable.Columns.Add(e2DTableColumnChannel) oMyColumn2.Channel.Reference = "[1]/[2]" Set Col2HeadSettings = oMyColumn2.Settings.Header.IndividualSettings Col2HeadSettings.Enable = True Call Col2HeadSettings.Font.Color.SetPredefinedColor(eColorIndexBlue) Set Col2TitleSettings = oMyColumn2.Settings.Header.IndividualTitle Col2TitleSettings.Enable = True Col2TitleSettings.Title1 = "Title 1" Col2TitleSettings.Title2 = "Title 2" Col2TitleSettings.Title3 = "Title 3" Call Report.Refresh()