Sub Etiquettes()
Dim p As Object
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel
ActiveChart.SeriesCollection(1).DataLabels.Font.Size = 6
ActiveChart.SeriesCollection(1).DataLabels.Border.LineStyle = xlNone
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
With ActiveChart.SeriesCollection(1).Points(i)
.Interior.ColorIndex = ActiveSheet.Cells(i + 1, 1).Interior.ColorIndex
.Interior.PatternColorIndex = 17
.DataLabel.Characters.Text = ActiveSheet.Cells(i + 1, 1).Text _
& " : " & ActiveSheet.Cells(i + 1, 5).Text _
& " ; " & ActiveSheet.Cells(i + 1, 6).Text
.DataLabel.Interior.ColorIndex = 36
End With
Next i
End Sub