User (Legacy) Posted February 25, 2003 Report Share Posted February 25, 2003 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 Link to comment Share on other sites More sharing options...
This topic is now archived and is closed to further replies.