BAR Graph Bar Widths

[User (Legacy)]

Hi,

In cliet/server, I'm having all sorts of problems trying to get it all to line up.  I'm printing a single series bar graph that has up to 13 values along the X-Axis.  The labels for each bar is centered under the tick mark, however the bar itself right aligns to the tick mark.  How do I center the bar?

Output:

Code (VB 6.0    BPSView.Chart1.OpenDataEx COD_VALUES Or COD_RESETMINMAX, 2, 13

    ' Setup AXIS_Y values

    With BPSView.Chart1.Axis(AXIS_Y)

        .Max = Val(R50MaxY) + ((Val(R50MaxY) * 20) / 100)

        .Min = Val(R50MinY)

        .STEP = (.Max - .Min) / 4

        .Title = R50YCoordTitle

        .Style = AS_NOTCLIPPED

    End With

    BPSView.Chart1.Gallery = BAR

    BPSView.Chart1.MarkerSize = 100

    BPSView.Chart1.Visible = True

    'BPSView.Chart1.PointLabels = False

    BPSView.Chart1.Axis(AXIS_X).Font.Size = 7

    BPSView.Chart1.Axis(AXIS_X).Style = AS_2LEVELS Or AS_NOTCLIPPED

    BPSView.Chart1.Volume = 100

    For i = 0 To Val(R50NumberOfRT55) - 1

        BPSView.Chart1.Axis(AXIS_X).Decimals = 0

        BPSView.Chart1.Axis(AXIS_X).Label(i) = Trim(R55GraphDesc(i + 1))

        BPSView.Chart1.Series(0).Volume = 100

        BPSView.Chart1.Series(0).Yvalue(i) = Val(R55GraphValue(i + 1))

    Next i

    If Val(R50NumberOfRT55) < 14 Then

        For i = Val(R50NumberOfRT55) To 13

            BPSView.Chart1.Axis(AXIS_X).Decimals = 0

            BPSView.Chart1.Axis(AXIS_X).Label(i) = ""

            BPSView.Chart1.Series(0).Yvalue(i) = 0

        Next i

    End If

    BPSView.Chart1.CloseData COD_VALUES

Thanks,

Chris Marsh

[Software FX]

The problem here is that you are allocating two (2) series but filling only one.

That second series is next to the first but it is all zeroes, that's the space you are seeing. Simply change this call to allocate one (1) series.

BPSView.Chart1.OpenDataEx COD_VALUES Or COD_RESETMINMAX, 1, 13

-- 

FP

Software FX, Inc.