Stacked Chart Percentages

[justdream]

Dears,

Could you please help me to find an automatic way to add Percentage as a Data label to my below Stacked Column chart instead of values
*Percentage already highlighted in Yellow
*We can have both Value & Percentage together
no problem but Percentage is Mandatory

[mana]

Option Explicit


Sub test()
    Dim cht As Chart
    Dim rData As Range
    Dim rLbl As Range
    Dim ser As Series
    Dim k As Long
    Dim dl As DataLabels
    
    With ActiveSheet
        Set cht = .ChartObjects(1).Chart
        Set rData = .Cells(1).CurrentRegion
    End With
    
    cht.ChartType = xlColumnStacked
    cht.SetSourceData rData, xlColumns
    cht.ApplyDataLabels
    
    Set rLbl = Intersect(rData, rData.Offset(1, 1)).Offset(7)
    
    For k = 1 To cht.SeriesCollection.Count
        Set dl = cht.SeriesCollection(k).DataLabels
        dl.Format.TextFrame2.TextRange.InsertChartField _
            msoChartFieldRange, rLbl.Columns(k).Address(, , , True)
        dl.ShowRange = True
        dl.ShowValue = False
    Next

End Sub

マナ