Сами окружности в таком виде, как мне хотелось бы, нарисовать не проблема с помощью такого кода:
Код: (vb)
Sub DrawCircles()
ActiveSheet.ChartObjects("Inhaltsplatzhalter 4").Activate
ActiveChart.FullSeriesCollection(1).DataLabels.Select
ActiveChart.FullSeriesCollection(1).Points(1).DataLabel.Select
Selection.Format.AutoShapeType = msoShapeOval
Selection.Height = 31.1811023622047
Selection.Width = 31.1811023622047
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 176, 80)
.Transparency = 0
.Visible = msoTrue
.Weight = 1.5
End With
End Sub