![]() | DIAdem 2017 Help |
![]() | DIAdem 2018 Help |
![]() | DIAdem 2019 Help |
![]() | DIAdem 2020 Help |
![]() | DIAdem 2020 SP1 Help |
The 3DTable object provides a 3D table in DIAdem REPORT.
The following example generates a 3D table and specifies the column properties:
Dim oMy3DTable, oMyPosition, oMyX, oMyY, oMyZ, oMySettings Call Data.Root.Clear() Call DataFileLoad(DataReadPath & "Report_Data.tdm","TDM","") Call Report.NewLayout() Set oMy3DTable = Report.ActiveSheet.Objects.Add(eReportObject3DTable,"My2DTable") Set oMyPosition = oMy3DTable.Position.ByBorder oMyPosition.Top = 20 oMyPosition.Bottom = 20 oMyPosition.Left = 20 oMyPosition.Right = 20 Set oMyX = oMy3DTable.X Set oMyY = oMy3DTable.Y Set oMyZ = oMy3DTable.Z Set oMySettings = oMy3DTable.Settings oMySettings.UseAutoFontSize = False oMyX.Channel.Reference = "[2]/[1]" oMyX.Font.Size = 2 oMyX.Format = "d.dd" oMyY.Channel.Reference = "[2]/[2]" oMyY.Font.Size = 2 oMyY.Format = "d.dd" oMyZ.Channel.Reference = "[2]/[3]" oMyZ.Font.Size = 2 oMyZ.Format = "d.dd" oMyX.Header.TitleSize = 70 oMyY.Header.TitleSize = 70 Call Report.Refresh()
Index | IsSelected | Name | ObjectType | Position | SelectedElements | Settings | TagStored | TagTemporary | X | Y | Z
3DTableDropContext.Table | ReportObjects.Add | ReportObjects.Copy | ReportObjects.Item | SelectedObjects.Item | ToolTip3DTableContext.Table3D
Helpful
Not Helpful