Ajustando o tamanho da fonte para pontos de dados individuais

Question

Eu tenho um gráfico no qual eu pluto um número de pontos, dependendo se um número foi inserido para eles em uma planilha diferente.

Gráfico:

Dadosdeorigem:

Osdadosdeorigemsãodefinidosparaascolunascorretasnaplanilhadeorigem,eospontosdedadossãoplotadosbemnográfico.

Agora,estoutentandoadicionaronúmeronacolunamaisàesquerdadosmeusdadoscomoumrótuloaospontosdedadosindividuaisqueaparecemnográfico.Maisumavez,issofuncionabem.

Finalmente,tentoajustarotamanhodaletranaqualosvaloresdedadosestãoescritos,dependendodotamanhodonúmero.Infelizmente,parecequequandofaçoalteraçõesemumdospontosdedados,parecequeessaalteraçãotambéméaplicadaaosoutros.Existealgumamaneiradefazeralteraçõesnaformataçãodetiposdedadosindividuaisoutodasasalteraçõesqueeufizerserãotransferidasparaosdemaistiposdedadosdasérie,nãoimportaoquantoeufaçaisso?

Ocódigoqueeuusoparaformatarospontosdedadosindividuaiséeste,eestánocódigodaplanilha:

PrivateSubChart_Activate()DimdlAsDataLabelDimpAsPointDimrAsRange,cAsRangeDimiAsLong,tiltaknrAsLongSetr=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

Novamente, o código funciona muito bem, exceto pelas linhas que tentam definir o tamanho da fonte dos rótulos de dados.