how can i move annotation tool

[Aravind]

i have added annotation tool with some text on the chart but i want to move by means cursor and fix it at some place depends on my choice ..

pls advise me on this
aravind

[Narcís]

Hi Aravind,

To be able to move the tool around you'd better use Rectangle tool instead of Annotation tool.

[Faizullah Khan]

Hi,

I am also facing problem related to add annotation on the TeeChart,
I want to add annotation at specific X,Y point ,
Help me in this Regard

thanks & Regards

[Narcís]

Hi Faizullah,

You can use the OnBeforeDrawAxes event and something like this:

Code: Select all

Private Sub TChart1_OnBeforeDrawAxes()
With TChart1.Tools.Items(0).asAnnotation.Shape
    .CustomPosition = True
    .Top = (TChart1.Series(0).CalcYPos(2) + TChart1.Series(0).CalcYPos(3)) / 2
    .Left = (TChart1.Series(0).CalcXPos(2) + TChart1.Series(0).CalcXPos(3)) / 2
  End With
End Sub

[Faizullah Khan]

Hi
Thanks.
It displays the Annote Text under the sprcific Point , I want to display the
annotation text above the Point (Top and Right Allign) ,
help me in this regards

[Narcís]

Hi Faizullah,

Then you can do something like this:

Code: Select all

Private Sub Form_Load()
    TChart1.Series(0).FillSampleValues 10
    TChart1.Environment.InternalRepaint
End Sub

Private Sub TChart1_OnAfterDraw()
    With TChart1.Tools.Items(0).asAnnotation.Shape
        .CustomPosition = True
        .Top = TChart1.Series(0).CalcYPos(3) - TChart1.Tools.Items(0).asAnnotation.Height
        .Left = TChart1.Series(0).CalcXPos(3)
    End With
End Sub