Property: Position for 3DTable

DIAdem 2018 Help


Edition Date: June 2018
Part Number: 370858P-01
View Product Info

DOWNLOAD (Windows Only)


DIAdem 2012 Help
DIAdem 2014 Help
DIAdem 2015 Help
DIAdem 2017 Help
DIAdem 2018 Help
DIAdem 2019 Help

Specifies the position of a 3D table in a DIAdem REPORT worksheet.

Set oObjectPosition = Object.Position
Object3DTable
Object with this property
oObjectPositionObjectPosition
Returned object

The following example generates a 3D table and specifies the position of this 3D table:

Dim oMy3DTable, oMyPosition, oMyX, oMyY, oMyZ
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
oMy3DTable.Settings.UseAutoFontSize = False
Set oMyX = oMy3DTable.X
Set oMyY = oMy3DTable.Y
Set oMyZ = oMy3DTable.Z
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"
Call Report.Refresh()

WAS THIS ARTICLE HELPFUL?

Not Helpful