polar bar (variation)

[Ronald]

Hello,

I need to draw 3D bars on a circle surface (perpendicular), with every bar having a different height and/or color.
I was playing with the polar bar series, but this doesn't help me much.

I could add a new series for each bar, but I need to draw 10.000 or more bars, so I don't think this is a good solution.


Any way to achieve this ?

[Narcís]

Hi Ronald,

You could try using Tower series and ClipRectangle as shown here:

Code: Select all

Private Sub Form_Load()
    Me.TeeCommander1.Chart = Me.TChart1
    TChart1.Series(0).FillSampleValues 10
    
    With TChart1.Aspect
        .Orthogonal = False
        .Chart3DPercent = 100
        .Rotation = 360
        .Elevation = 270
    End With
End Sub

Private Sub TChart1_OnBeforeDrawSeries()
    TChart1.Canvas.ClipRectangle 100, 100, 300, 300
End Sub