Modifier les couleurs de la spécificité des points dans le nuage de points vba excel
Je voudrais changer la couleur des points dans la partie en haut à gauche du nuage de points.
J'ai écrit une macro, aucune erreur ne s'est produite, mais la couleur ne change pas :/
Sub Kolorowanie()
ActiveSheet.ChartObjects("Chart 1").Activate
a = ActiveChart.SeriesCollection(1).Values
b = ActiveChart.SeriesCollection(1).XValues
For i = LBound(a) To UBound(a)
If a(i) < 0 And b(i) > 0 Then
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Points(i).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Solid
End With
Else
End If
Next i
End Sub
Des idées pourquoi cela ne fonctionne pas?
Vous devez vous connecter pour publier un commentaire.
Se débarrasser de la
.Solid
ou mettre ce avant vous définissez laForecolor.RGB
, je pense que c'est quelque chose de primordial (j'ai remarqué cela et quelques autres bugs/une incapacité à accomplir certaines actions de même que l'Enregistreur de Macros font croire ces méthodes devrait fonctionner correctement).Ou:
L'appliquer à votre code nous donne: