Method: Select for 3DTable

Method: Select for 3DTable

Selects a 3D table in DIAdem REPORT.

Object.Select()

The following example generates a 3D table in the current worksheet, selects this 3D table, and then displays whether the 3D table is selected:

Dim oMy3DTable
Call Report.NewLayout()
Set oMy3DTable = Report.ActiveSheet.Objects.Add(eReportObject3DTable,"My3DTable")
Call oMy3DTable.Select()
Call MsgBoxDisp(oMy3DTable.IsSelected)

dd.Report.NewLayout() 
oMy3DTable = dd.Report.ActiveSheet.Objects.Add(dd.eReportObject3DTable,"My3DTable") 
oMy3DTable.Select() 
dd.MsgBoxDisp(oMy3DTable.IsSelected)