VBA Chart Data Labels msoNumberFormat for Percentage with decimals

How do you tell msoChartFieldPercentage to have the Number Format "0,00%"?

Please Login or Register  to view this content.

How do you integrate this line to the code:
msoNumberFormat = "0,00%"

HI
I think it's better to attach the file.
But why not publish the request in the Charts section?
HI,
Mario

Hi Mario, Hi Andy,

Andy, thank you for your response! I tried the line, but it changes the format of the Category Value.
As Mario suggested, I have attached the file – could you please have a look at the code?

Thank you very much!
Toni

Thanks Andy
I allowed myself to make only two changes (the ones colored in red below) but the percentages seem wrong to me. Only in the first label I get 100.00% while the others are all 0.00%

Sub xx()
Dim p As Point
Dim CatValueLength As Variant
Dim dls As DataLabels
Dim length As Long
Dim labelItems As Variant

ActiveSheet.ChartObjects(1).Activate
With ActiveChart.SeriesCollection(1)
.HasDataLabels = True
With .DataLabels
.ShowValue = True
.ShowCategoryName = True
.ShowPercentage = True
.Separator = vbLf
.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = vbBlack
.Format.TextFrame2.TextRange.Font.Bold = False
.NumberFormat = "0.0000"
.Position = xlLabelPositionOutsideEnd
End With
For Each p In .Points
labelItems = Split(p.DataLabel.Text, vbLf)
With p.DataLabel.Format.TextFrame2.TextRange
.Text = labelItems(0)
.Text = .Text & vbLf & Format(labelItems(1), "0.00")
.Text = .Text & vbLf & Format(labelItems(2), "0.00%")
'~~> Color the category name
length = Len(labelItems(0)) + Len(labelItems(1))
.Characters(1, length).Font.Bold = True
.Characters(1, length).Font.Fill.ForeColor.RGB = p.Format.Fill.ForeColor.RGB
End With
Next
End With
End Sub

Did I do something wrong?

HI,
Mario

Hi

No, I'm using system separators.
But what is not clear to me is why it sets the first percentage equal to 100.00 and the others all to 0.00

HI,
Mario

Hello everyone
Never give up!
The previous macro works if in the first formatting I put a comma and in the other two I put a point.
I mistakenly always put either full points or commas.
Thank you.

HI, Mario

Hello Andy, hello Mario.

Andy, wow. This is so neat. Thank you so much!

Mario, same case here with the dots and commas.

What a life changer

Thank you very, very much!

Hello Andy,

might there also be a way to use cells in a column (instead of a row)?

In your code, these lines point to the cell in a row to be used:

categoryColorRow = 1
valueColorRow = 2
colIndex = 2

Is there a way to choose a column instead?
The code I was using up until now had a range setting, where you could either choose a horizontal or vertical row as the input for the labels:

Please Login or Register  to view this content.

Once again, I'm trying to combine with no success.