Chart Ranges

[mikeymay]

I have multiple pie charts in a sheet that get updated via a dynamic range address.

When there is more than 1 row of data in the dynamic range, the chart renders as required

Sometimes when there is only 1 row of data in the dynamic range, the chart renders as below

When it should render using the range as below

The labels should show as
Contractor
0.01
100%

Now some of the charts that have only one row do actually render correctly.

I can manually fix this by using the 'Switch Row/Column' button when I click on the Select Data Source when i right click on the chart.

As the process to set the address for over 100 charts is execute via a macro, I can't manually check each chart and I don't know how to establish if a chart is showing incorrectly so i can add a line of code to do the Row/Column swap.


TIA

 

[mikeymay]

After a bit of digging I've come up with the following code which seems to fix the problem

If intRows = 1 Then
   Set srsSeries = ActiveChart.FullSeriesCollection
   
   If IsEmpty(srsSeries.Item(1).XValues(1)) Then
      ActiveChart.PlotBy = xlColumns

      Else
   End If
   Else
End If