Изменение типов даты меток данных

Question

Я очень старался исправить формат данных меток данных. к сожалению, ничего не получается. Я хочу, чтобы метки данных имели размер 0,00%. Как я могу это изменить?

Вот пример из программы.

Dim OAPList As Range
Dim SingleCell As Range
Dim Counter As Integer

Set OAPList = Worksheets("Sheet2").Range("E2:E" & lw)
ActiveChart.FullSeriesCollection(1).ChartType = xlColumnClustered
ActiveChart.FullSeriesCollection(1).AxisGroup = 1
ActiveChart.SeriesCollection(1).HasDataLabels = True

Counter = 1
With ActiveChart.SeriesCollection(1)

    For Each SingleCell In OAPList
        ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = SingleCell.Value
        Counter = Counter + 1
    Next SingleCell
    .DataLabels.ShowValue = True
    .DataLabels.NumberFormat = "0%"
    '.DataLabels.Position = xlLabelPositionInsideEnd
    .DataLabels.Format.AutoShapeType = msoShapeRectangularCallout
    .DataLabels.Format.Line.Visible = msoTrue
End With

ActiveChart.SeriesCollection(2).Name = "Estimated Hours"
ActiveChart.FullSeriesCollection(2).ChartType = xlColumnClustered
ActiveChart.FullSeriesCollection(2).AxisGroup = 1

Answer 1

Изменить следующую строку для каждого цикла:

ActiveChart.FullSeriesCollection(1).Points(Counter).DataLabel.Text = Format(SingleCell.Value, "0%")

Answer 2

Попробуйте, возможно, изменить эту строку:

'With ActiveChart.SeriesCollection(1)
With ActiveChart.FullSeriesCollection(1)