Sub GetTable()
Dim oCh As Chart
Set oCh = ActivePresentation.Slides(1).Shapes(1).Chart
With oCh.SeriesCollection(1).Points(1).DataLabel.Format.Line
.ForeColor.RGB = RGB(255, 0, 0)
End With
End Sub
Это, пожалуй, пока единственно, что могу подсказать. Т.к. у Вас вставка диаграммы изет через связь - сложно получить исходные данные.
И подписи в виде окружностей не сделать - нет такого. У меня по крайней мере.