Grafik üzerine 2. veri etiketini ekleme

[tamer42]

Merhabalar,
Ekli dosyada yer alan grafik oluşturma makrosunda;
çubukların üzerine eklenen veri etiketlerinde değerlein yanına ilave olarak % 'lik değerlerini de nasıl ekleyebiliriz?
ekli dosyada "AE:AG" hücre aralığında hesaplanmış olan değerler....

desteğiniz için şimdiden teşekkürler,
iyi çalışmalar.

Sub Grafik()
Dim WS As Worksheet
Dim Cht As Chart
Dim srs As Series
Dim rngData As Range
Dim s As Integer
Dim i As Integer
Dim rw As Long

Set WS = Sayfa4

rw = WS.Cells(WS.Rows.Count, "Z").End(xlUp).Row

Set rngData = WS.Range(WS.Cells(2, 26), WS.Cells(rw, 29))
Set Cht = WS.ChartObjects(1).Chart

For Each srs In Cht.SeriesCollection
    srs.Delete
Next
    

For s = 2 To rngData.Columns.Count

    Set srs = Cht.SeriesCollection.NewSeries
    
    With srs
        .XValues = rngData.Columns(1)
        .Values = rngData.Columns(s)
        .Name = rngData.Cells(1, s).Offset(-1, 0).Value
    End With

    
     Set srs = Nothing
Next

For i = 1 To Cht.SeriesCollection.Count

   Cht.SeriesCollection(i).ApplyDataLabels
Next


End Sub