|
Group: Forum Members
Posts: 3,
Visits: 1
|
Thank you for the response. Sorry about the delay in mine. I got bounced around on a couple of other urgent projects and just now am able to revisit this. I am still having an issue, and I think it may have to do with the MultiBarMode settings I need to get the cluster effect. When I take this out I am able to get the overlay effect, but I lose the clustering. Below is the VB code I used to generate the look I am going for, but of course stacking causes some other problems such as widths. Is there a way to get this effect with the clustering here, or maybe I can create my own clustering by changing the distance between bars depending on if they are in a cluster or the start of a new cluster? Thanks again for the help.
' first cluster Dim c1bar1 As NBarSeries = DirectCast(chart.Series.Add(SeriesType.Bar), NBarSeries) c1bar1.Name = "Medical Spent" c1bar1.BarShape = BarShape.Cylinder c1bar1.DataLabelStyle.Visible = True c1bar1.DataLabelStyle.VertAlign = VertAlign.Center
Dim c1bar2 As NBarSeries = DirectCast(chart.Series.Add(SeriesType.Bar), NBarSeries) c1bar2.Name = "Medical Budget" c1bar2.BarShape = BarShape.Cylinder c1bar2.DataLabelStyle.Visible = True c1bar2.DataLabelStyle.VertAlign = VertAlign.Top
c1bar1.MultiBarMode = MultiBarMode.Series c1bar2.MultiBarMode = MultiBarMode.Stacked ' stack on c1bar1
' second cluster Dim c2bar1 As NBarSeries = DirectCast(chart.Series.Add(SeriesType.Bar), NBarSeries) c2bar1.Name = "Incontinence Spent" c2bar1.BarShape = BarShape.Cylinder c2bar1.DataLabelStyle.Visible = True c2bar1.DataLabelStyle.VertAlign = VertAlign.Center
Dim c2bar2 As NBarSeries = DirectCast(chart.Series.Add(SeriesType.Bar), NBarSeries) c2bar2.Name = "Incontinence Budget" c2bar2.BarShape = BarShape.Cylinder c2bar2.DataLabelStyle.Visible = True c2bar2.DataLabelStyle.VertAlign = VertAlign.Top
c2bar1.MultiBarMode = MultiBarMode.Clustered ' display next to c1bar1 c2bar2.MultiBarMode = MultiBarMode.Stacked ' stack on c2bar1
' third cluster Dim c3bar1 As NBarSeries = DirectCast(chart.Series.Add(SeriesType.Bar), NBarSeries) c3bar1.Name = "Housekeeping Spent" c3bar1.BarShape = BarShape.Cylinder c3bar1.DataLabelStyle.Visible = True c3bar1.DataLabelStyle.VertAlign = VertAlign.Center
Dim c3bar2 As NBarSeries = DirectCast(chart.Series.Add(SeriesType.Bar), NBarSeries) c3bar2.Name = "Housekeeping Budget" c3bar2.BarShape = BarShape.Cylinder c3bar2.DataLabelStyle.Visible = True c3bar2.DataLabelStyle.VertAlign = VertAlign.Top
c3bar1.MultiBarMode = MultiBarMode.Clustered c3bar2.MultiBarMode = MultiBarMode.Stacked
|