Unable to set font size and other attributes on RADAR Axes

[Mike McCann]

I cannot seem to set the font colour, font size or font family on the axes of the radar chart

These next 4 lines will change attributes
.Axes.Item(0).Increment = 0.5
.Axes.Item(0).AutomaticMaximum = False
.Axes.Item(0).Maximum = 5
.Axes.Item(0).Minimum = 0

These lines have no effect
.Axes.Item(0).Title.Font.Size = 40
.Axes.Item(0).Title.Font.Color = System.Drawing.Color.Red
'.Axes.Item(0).Labels.Font.Color = System.Drawing.Color.Blue
'.Axes.Item(0).Labels.Font.Size = 40

Please advise the correct way of setting font size on radar axes.

Thanks
Mike McCann
Systems Thinking Pty Ltd

[Miguel]

Hi Mike,

You can do it in the following way:

Code: Select all

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     Dim rd As New Steema.TeeChart.Styles.Radar(TChart1.Chart)
     rd.FillSampleValues()
     TChart1.Axes.Right.Title.Text = "Right"
     TChart1.Axes.Right.Title.Font.Color = System.Drawing.Color.Red
     TChart1.Axes.Right.Title.Font.Size = 40
     TChart1.Axes.Right.Labels.Font.Size = 11
     TChart1.Axes.Right.Labels.Font.Color = System.Drawing.Color.Blue
End Sub

[Mike McCann]

OK, thanks for the reply, however this does not fix my problem. Maybe I asked the wrong question.

I set a series value as per the following line
resultSeries.Add(incidentManagementLevelMean, "Incident" + Chr(10) + " Management")

I want the "Incident Management" to be in larger font. There does not seem to be any way to set the font characteristics on the axis labels.

Can you advise. I can send a screen dump if you wish

Thanks

Mike McCann

[Mike McCann]

Hi guys,

Any chance of an answer please

Thanks
Mike McCann

[Mike McCann]

I have text size that is unreadably small on the axis. My customer is unhappy and asking me to change the font size.

Thanks
Mike McCann

[Miguel]

Hi Mike,

Please, try this:

Code: Select all

Dim rd As New Steema.TeeChart.Styles.Radar(TChart1.Chart)
rd.Add(100, "Label1")
rd.Add(200, "Label2")
rd.Add(300, "Label3")
rd.Add(400, "Label4")
rd.CircleLabels = True
rd.CircleLabelsInside = True
rd.CircleLabelsRotated = True
rd.CircleLabelsFont.Size = 12
rd.CircleLabelsFont.Bold = True
rd.CircleLabelsFont.Color = Color.Blue

[Mike McCann]

Miguel,
thanks
that fixed everything

Cheers
Mike McCann