Option Explicit
Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
Dim s As Series, d As DataLabel, t() As String, p As Variant
If Sh.Name <> "TCD" Then Exit Sub
Set s = Sh.ChartObjects(1).Chart.SeriesCollection(1)
If s.HasDataLabels Then
With s.DataLabels
If .ShowValue And .ShowCategoryName Then
p = .Separator
.Separator = vbLf
For Each d In s.DataLabels
t = Split(d.Caption, vbLf)
d.Caption = Int(t(0)) & vbLf & t(1)
Next d
.Separator = p
End If
End With
End If
End Sub