У меня есть диаграмма, в которой я строю количество точек в зависимости от того, было ли для них введено число на другом листе.

График:

Источник данных:

Исходные данные устанавливаются в правильные столбцы на исходном листе, а точки данных отображаются точно на графике.

Теперь я пытаюсь добавить число в крайнем левом столбце моих данных в качестве метки к отдельным точкам данных, которые отображаются на диаграмме. Опять же, это работает нормально.

Наконец, я пытаюсь настроить размер шрифта, в который записываются метки данных, в зависимости от размера числа. К сожалению, кажется, что когда я делаю изменения в одном из точек данных, кажется, что это изменение применяется и к другим. Можно ли каким-либо образом внести изменения в форматирование шрифта отдельных меток данных или внесенные мной изменения перенесут на остальные метки данных в серии, независимо от того, как я это сделаю?

Код, который я использую для форматирования отдельных точек данных, таков и находится в коде таблицы:

Private Sub Chart_Activate()
    Dim dl As DataLabel
    Dim p As Point
    Dim r As Range, c As Range
    Dim i As Long, tiltaknr As Long

    Set r = Range(PDCA.Range("P11"), PDCA.Range("P11").Offset(PDCA.Range("B" & PDCA.Rows.Count).End(xlUp).Row - 11, 0))

    For Each c In r
        If Len(c.Text) > 0 Or Len(c.Offset(0, 1).Text) > 0 Then
            tiltaknr = c.Offset(0, -14)
            With Prioriteringsmatrise.SeriesCollection(1).Points(i + 1).DataLabel
                .Text = tiltaknr
                If tiltaknr > 99 Then
                    .Characters(1, Len(tiltaknr)).Font.Size = 7
                ElseIf tiltaknr > 9 Then
                    .Characters(1, Len(tiltaknr)).Font.Size = 8
                Else
                    .Characters(1, Len(tiltaknr)).Font.Size = 10
                End If
            End With
        End If
        i = i + 1
    Next c

End Sub

Опять же, код работает отлично, за исключением строк, пытающихся установить размер шрифта для меток данных.

|источник

0