Leader / Leading Lines in Bubble Chart

Hi,

I have bubble charts (up to 30 with 35 points each) that I need to format with leader lines to each bubble. As you can imagine, this becomes pretty tedious...

I already have some VBA to attach the data points, but was wondering if anyone knew how to tell excel to draw a line from the bubble to the data point (the data points are all associated with the bubbles).

I don't know where to start, any advice is appreciated!

Thanks

Edit: this is for excel 2010, I think excel 2013 has this capability, but my office doesn't have that yet. I'm also not allowed to install 3rd party software, unfortunately.

I know the basic way I would accomplish this, but am VBA limited so the coding is difficult for me to wrap my head around:
1. activate the chart
2. cycle through all data points on the chart in a loop (for or if)
2a. Get the position of point (x) -> save this as a value (PointPosition)
2b. Get the position of points.datalabel(x) vi - save this as a value (LabelPosition)
2c. Activecharts.shapes.addconnector(msoConnectorStraight, PointPosition,LabelPosition)
3. Repeat as necessary through points.

Here is what I have so far...this works to do what I needed, attach leader lines from data labels to the center of the bubbles, but now I'm wondering if anyone has any ideas on how to have the lines be "beneath" the data labels so they don't go over the text. I tried filling the data labels with white but the lines are still on top of them...is there a way to layer the lines underneath, or force all the data labels on top??

Sub AttachLeaderLines()
'
' Attach Leader Lines Macro
' Andrew McLaughlin

'
Dim i As Integer
Dim j As Integer
Dim xCntPoint As Integer
Dim PointTopDistance As Single
Dim PointLeftDistance As Single
Dim LabelTopDistance As Single
Dim LabelLeftDistance As Single
Dim LabelHeight As Single
Dim LabelWidth As Single
Dim BubbleWidth As Integer
Dim BubbleHeight As Integer
Dim PlotLeftDistance As Single
Dim PlotTopDistance As Single
Dim PlotHeight As Single
Dim PlotWidth As Single
Dim BubbleCenterLeft As Single
Dim BubbleCenterTop As Single
Dim LabelCenterLeft As Single
Dim LabelCenterTop As Single


i = 0

ActiveSheet.ChartObjects("Chart 1").Activate

PlotLeftDistance = ActiveChart.PlotArea.InsideLeft
PlotTopDistance = ActiveChart.PlotArea.InsideTop
PlotHeight = ActiveChart.PlotArea.InsideHeight
PlotWidth = ActiveChart.PlotArea.InsideWidth

xCntPoint = 1
j = ActiveChart.SeriesCollection(1).Points.Count

For i = 1 To j

PointTopDistance = ActiveChart.SeriesCollection(1).Points(xCntPoint).Top
PointLeftDistance = ActiveChart.SeriesCollection(1).Points(xCntPoint).Left
BubbleWidth = ActiveChart.SeriesCollection(1).Points(xCntPoint).Width
BubbleHeight = ActiveChart.SeriesCollection(1).Points(xCntPoint).Height
BubbleCenterLeft = PointLeftDistance + BubbleWidth / 2
BubbleCenterTop = PointTopDistance + BubbleHeight / 2
LabelTopDistance = ActiveChart.SeriesCollection(1).Points(xCntPoint).DataLabel.Top
LabelLeftDistance = ActiveChart.SeriesCollection(1).Points(xCntPoint).DataLabel.Left
LabelHeight = ActiveChart.SeriesCollection(1).Points(xCntPoint).DataLabel.Height
LabelWidth = ActiveChart.SeriesCollection(1).Points(xCntPoint).DataLabel.Width
LabelCenterLeft = LabelLeftDistance + LabelWidth / 2
LabelCenterTop = LabelTopDistance + LabelHeight / 2

ActiveChart.Shapes.AddConnector(msoConnectorStraight, BubbleCenterLeft, _
BubbleCenterTop, LabelCenterLeft, LabelCenterTop).Select

xCntPoint = xCntPoint + 1

Next i



End Sub

Thanks, but that approach is pretty limited (can only do 90 degree angles) and very manual. Appreciate the input though.