Jump to content
Software FX Community

Re: PointLabelColor Property inexistant!

User (Legacy)

Recommended Posts

Here's one solution using Annotation objects.

I use ChartFX98 with Access 2000, same code should work with Vb


Private Sub Form_Load()

Dim objChart As ChartfxLib.ChartFX

Dim AnnotX As AnnotationX

Dim objL As AnnotateX.AnnText 'this will be the point marker

Dim i As Integer

Dim j As Integer

Dim nMarkerPosition As Long

Dim x As Integer, y As Integer

'set referenct to chart object on form

Set objChart = Me.ChartFX1.Object

'create new annotation object

Set AnnotX = New AnnotationX

'turn off toolbar

AnnotX.Toolbar = False

'add AnnotX to Chart1

objChart.AddExtension AnnotX

objChart.Gallery = LINES

objChart.Chart3D = False

objChart.RGB2DBk = vbWhite

objChart.PointLabels = False

objChart.Axis(AXIS_Y).Max = objChart.Axis(AXIS_Y).Max * 1.2

For i = 0 To (objChart.nSeries - 1)

For j = 0 To (objChart.NValues - 1)

'create a new text object

Set objL = AnnotX.Add(OBJECT_TYPE_TEXT)

'figure where the chart is drawing the point marker

nMarkerPosition = objChart.PaintInfo(CPI_MARKERTOPIXEL, CHART_ML(i, j))

x = CHART_LOWORD(nMarkerPosition)

y = CHART_HIWORD(nMarkerPosition)

'set text of new text marker

objL.Text = Format(objChart.ValueEx(i, j), "##.0")

'give it an initial size

objL.Width = 5

objL.Height = 5


'locate the upper left position

objL.Left = x - objL.Width / 2

objL.Top = y - objL.Height

'mess up the point colors or set them to a color of your purpose

objL.Color = RGB(Int((255 * Rnd) + 1), Int((255 * Rnd) + 1), Int((255 * Rnd) + 1))


objL.BorderStyle = LS_NONE

objL.AllowMove = False

objL.AllowModify = False

objL.Refresh False

Next j

Next i

'objChart.Export CHART_BITMAP, "c:\temp\MultiColorPoints.bmp"

Set objChart = Nothing

Set objL = Nothing

Set AnnotX = Nothing

End Sub


Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Create New...