This example must be run on either a pie of pie chart or a bar of pie chart. The example splits the two sections of the chart by value, combining all values under 10 in the primary pie and displaying them in the secondary section.
With Worksheets(1).ChartObjects(1).Chart.ChartGroups(1)
.SplitType = xlSplitByValue
.SplitValue = 10
.VaryByCategories = True
End With