Chart data label position

[adr12345]

I have written this code and and the labels for the charts appear outside the graph area.

I want to position data label inside the pie charts.

How to do that ?

With oChart4
.HasTitle = True
.ChartTitle.Text = "On Net/ Off Net (Overall)"
.ShowAllFieldButtons = False
.ApplyDataLabels xlDataLabelsShowValue
End With

 

[Worf]

Like this:

Sub CenterLabels()
Dim ch As ChartObject
Set ch = ActiveSheet.ChartObjects("Chart3")
With ch.Chart
    .HasTitle = True
    .ChartTitle.Text = "On Net/ Off Net (Overall)"
    .ApplyDataLabels xlDataLabelsShowValue
    .SeriesCollection(1).DataLabels.Position = xlLabelPositionCenter
End With
End Sub

 

[adr12345]

Thanks Worf!!

 

[Worf]

You are welcome!