Sub etiq()
With ActiveChart
For i = 2 To .SeriesCollection.Count
For j = 1 To .SeriesCollection(i).Points.Count
With .SeriesCollection(i).Points(j)
.HasDataLabel = True
If j = 1 Then
k = j
Else
k = j + 1
End If
.DataLabel.Text = Format(ActiveSheet.Cells(2, k + 3).Value, "00.0%")
End With
Next
Next
End With
End Sub