VB gestion taille et couleur de label HELP!

Bonjour à tous,

Totalement novice en VBA !

En abscisse j'ai mes occurences : le nombre de fois où un sujet revient.
En ordonnée : le niveau de satisfaction avec lequel est exprimé le sujet.

Dans mes statistiques, j'ai d'autres données intéressantes à montrer aux clients, mais que je n'arrive pas à rendre visuellement :

L'implication : le texte grossi en fonction de l'implication
Texte (label) gros si indice d'implication > 0.75
Texte (label) moyen si indice d'implication entre 0.5 et 0.75
Texte (label) petit si indice d'implication <0.5

L'émotionnel :
Texte (label) rouge si le sujet est émotionnel (1)
Texte (label) bleu si le sujet est rationnel (0)

J'ai commencé par faire cette macro pour spécifié mes séries... Mais je n'y arrive pas !!!

Mes questions :
Comment agir sur le label et pas sur le point???
Comment appliquer la différence de taille sur le label?
Comment appliquer la différence de couleur???
Et, enfin, comment utiliser des couleurs RVB???

BREF: beaucoup de questions je m'en rend compte, mais si quelqu'un peu m'aider ce serait super !!!!!
Merci d'avance !!

(Le fichier en pièce jointe : https://www.cjoint.com/?BCpsSBMKG6I )

Sub macro1()
Dim nbpts As Long, nupt As Long
Dim valY, Gr
' implication - série n° 3
Set Gr = ActiveSheet.ChartObjects(1).Chart
valY = Gr.SeriesCollection(1).Values
nbpts = Gr.SeriesCollection(1).Points.Count
With Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1).Label
.SelFontName = "Arial"
With Gr.SeriesCollection(3).Points(nupt)
If valY(nupt) >= 0.75 Then
.SelFontSize = 20
ElseIf valY(nupt) >= 0.5 Then
.SelFontSize = 15
ElseIf valY(nupt) < 0.5 Then
.SelFontSize = 8
End If
End With
End With
' emotionnel - série n° 4
Set Gr = ActiveSheet.ChartObjects(1).Chart
valY = Gr.SeriesCollection(1).Values
nbpts = Gr.SeriesCollection(1).Points.Count
With Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1).Label
.SelFontName = "Arial"
With Gr.SeriesCollection(4).Points(nupt)
If valY(nupt) = 1 Then
.SelFontColor = 20
ElseIf valY(nupt) >= 0 Then
.SelFontColor = 15
End If
End With
End With
End Sub

Message d'erreur : propriétés ou méthode non gérée !