LegendEntries Index in PieChart & Delete Condition

[tomay62]

I've been a few days trying to find the mistake or what I'm doing Wrong. I show here the current output and what it should be. I think maybe i'm defining the range with some mistake, or maybe <code>LegendEntries(i)</code>, doeasn't work with the same index as <code>Points(i)</code>. Any suggestion ? Or maybe how could I do this from another approach ? The thing here is to get a chart and delete the legend and labels associated with "0" values. The First graphic is my current output. The second one is my desire output, and what I expected to get with my code. The Legends that have 0 values are "Asia" and "Latam", but my current output is throwing "Latam" and it should throw "RoW", because "RoW" insn't associated with 0 values, its value is "5.0%".

<tbody>
</tbody>

<code>Sub CreateChart()
On Error Resume Next
Sheets(1).ChartObjects.Delete

    Dim MyChart As Chart
    Dim rowi As Integer
    Dim MyRange As Range


rowi = Range("I7").Row ' Index to select last row non empty, in this example it's row number 11.
Do While Sheets(1).Cells(rowi, Range("I7").Column).Value = _
IsEmpty(Cells(rowi, Range("I7").Column))
rowi = rowi + 1
Loop

'----------------------------------------------------CHART---------------------------------------------------------------

Set MyRange = Range("I6:M6" & ",I" & rowi & ":M" & rowi)

Set MyChart = Sheets(1).Shapes.AddChart(xlPie).Chart

     MyChart.SetSourceData Source:=MyRange

With MyChart.SeriesCollection(1)
 .HasDataLabels = True
 .DataLabels.NumberFormat = "0.0%"
End With

With MyChart
 .HasLegend = True
End With

For i = 1 To (Range("M6").Column - Range("I6").Column + 1)

If  Cells(rowi, Range("I6").Column + i - 1).Value = 0 Then
MyChart.SeriesCollection(1).Points(i).DataLabel.Delete
MyChart.Legend.LegendEntries(i).Delete
End If

Next i
End Sub</code>

-- removed inline image ---





-- removed inline image ---

 

[tomay62]

The Images for the example applied to the code

[/URL][/IMG]

[/URL][/IMG]