3D Point Chart Series
Posted: Wed Dec 10, 2003 6:12 am

Code: Select all
Private Sub Form_Load()
With TChart1
.AddSeries scPoint3D
.Series(0).asPoint3D.AddXYZ 0, 10, 1, "", clTeeColor
.Series(0).asPoint3D.AddXYZ 1, 15, 5, "", clTeeColor
.Series(0).asPoint3D.AddXYZ 2, 4, 2, "", clTeeColor
.Series(0).asPoint3D.AddXYZ 3, 20, 10, "", clTeeColor
.Series(0).asPoint3D.AddXYZ 4, 5, 2, "", clTeeColor
.Axis.Depth.Visible = True
End With
End Sub