To make data labels easier to read, you can move them inside the data points or even outside of the chart.
To move a data label, drag it to the location you want.
Use the source data dialog to add another series to the chart.
Select the 2nd data series and change the chart type to pie.
In fact, this is the first Class Module I have ever written: Option Explicit Public With Events cls Chart As Chart Private Sub cls Chart_Mouseup(By Val Button As Long, By Val Shift As Long, By Val x As Long, By Val y As Long) Dim IDNum As Long Dim a As Long Dim b As Long Dim shp Leader Line As Freeform Builder Dim pt As Point Dim l Kink As Long l Kink = 5 Dim b Label As Boolean Dim shp As Shape Active Chart.