di = 10
Do
For i = 1 To 10
Set Shar(i) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(i), y(i), di, di)
Next
di = di + 1 ' диаметр увеличивается на каждом шагу на 1
' ... далее по тексту

di = 10
Do
'Вот  каждый шар по отдельности объявляем.
' диаметр шара задаётся переменной di
'Задавай сам как заблагорассудится, каждому шару индивидуально
'например, через 1 увеличивается.
Set Shar(1) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(1), y(1), 20, 20)
Set Shar(2) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(2), y(2), di, di)
Set Shar(3) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(3), y(3), 30, 30)
Set Shar(4) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(4), y(4), di, di)
Set Shar(5) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(5), y(5), 40, 40)
Set Shar(6) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(6), y(6), di, di)
Set Shar(7) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(7), y(7), 50, 50)
Set Shar(8) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(8), y(8), di, di)
Set Shar(9) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(9), y(9), 60, 60)
Set Shar(10) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(10), y(10), di, di)

di = di + 1 ' диаметр увеличивается на каждом шагу на 1
' ... далее по тексту