how to set top axis in horizontal graph

[Aravind]

i am converting bar graph into horizontal graph

1.for bar graph i have left axis and bottom axis
but for horizontal axis i need top axis and left axis .. i
how can i set ?


2. and also for horizontal graph i need the scale to be start from the top i,e.,
o on top and max value on bottom (right now i am getting on on the bottom and max value on the top )


pls advise me
aravind

[Pep]

Hi aravind,

you can do :

Code: Select all

Private Sub Command1_Click()
TChart1.ChangeSeriesType 0, scHorizBar
TChart1.Series(0).VerticalAxis = aRightAxis
TChart1.Series(0).HorizontalAxis = aTopAxis
TChart1.Axis.Right.Inverted = True
End Sub

[Aravind]

when i draw the stacked bar graph, marks are hiding behing the bar ..? is there any way can i bring front ..?
how to bring marks front in Stacked Bar graph ?

[Pep]

Hi Aravid,

yes, we're aware of this, it's already down our bug/wish list to be considered for further releases. In the meantime you can use IAnnotation Tools instead (this code will need touching up):

Code: Select all

Private Sub Form_Load()
TeeCommander1.Chart = TChart1
With TChart1
    .Aspect.View3D = False
    .AddSeries scBar
    .AddSeries scBar
    .AddSeries scBar
    For i = 0 To .SeriesCount - 1
        For j = 1 To 15
            .Series(i).AddXY j, Rnd * 100, "", clTeeColor
            .Tools.Add tcAnnotate
        Next j
       .Series(i).Marks.Visible = False
       .Series(0).asBar.MultiBar = mbStacked

    Next i
    .Environment.InternalRepaint
End With
End Sub

Private Sub TChart1_OnAfterDraw()
With TChart1
    For i = 0 To .SeriesCount - 1
        For j = 1 To 15
            With .Tools.Items((i * 15) + (j - 1)).asAnnotation
                .Shape.Color = RGB(255, 255, 230)
                .Shape.ShadowSize = 0
                .Shape.CustomPosition = True
                .Shape.Left = TChart1.Series(i).CalcXPos(j - 1)
                .Shape.Top = TChart1.Series(i).CalcYPos(j - 1) - 35
                .Text = Round(TChart1.Series(i).YValues.Value(j - 1), 2)
            End With
            .Tools.Items((i * 15) + (j - 1)).Active = True
            .Canvas.Pen.Color = vbWhite
            .Canvas.MoveTo TChart1.Series(i).CalcXPos(j - 1) +
..Series(i).asBar.BarWidth / 2, TChart1.Series(i).CalcYPos(j - 1)
            .Canvas.LineTo TChart1.Series(i).CalcXPos(j - 1) +
..Series(i).asBar.BarWidth / 2, TChart1.Series(i).CalcYPos(j - 1) - 18

        Next j
    Next i
End With
End Sub

[Pep]

Hi aravind,

I mistake me here, this problem has been fixed in the latest TeeChart Pro v7 version (it works fine here).