graph: trait et ligne de marquage par vba

S

Sheldor

XLDnaute Occasionnel

• 24 Juillet 2018

• #2

re-bonjour,

je n'ai pas trouvé mais j'ai (un peu) avancé...
avec

ActiveChart.SeriesCollection(1).Format.Line.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Line.Transparency = 1
ActiveChart.SeriesCollection(1).Border.Weight = 4

j'arrive à avoir un trait épais et pas de ligne de marquage mais je suis limité à 1/2/3/4 comme valeur d'épaisseur en utilisant "border"...

 

Vote positif 0 Vote négatif

Jauster

XLDnaute Occasionnel

• 24 Juillet 2018

• #3

Hello,

Tu peux influencer sur les lignes de marquage avec :
ActiveChart.SeriesCollection(1).MarkerBackgroundColor = RGB(255, 0, 0) 'Pour du rouge ici
ActiveChart.SeriesCollection(1).MarkerForegroundColor = RGB(255, 0, 0) 'Pour du rouge ici

Ainsi en utilisant ce code j'arrive au résultat que tu souhaites :

VB:

With ActiveChart.SeriesCollection(1)
ActiveSheet.ChartObjects("Graphique 8").Activate
    .Format.Line.Visible = msoTrue
    .Format.Line.Weight = 5
    .MarkerSize = 10
    .MarkerBackgroundColor = RGB(255, 0, 0)
    .MarkerForegroundColor = RGB(255, 0, 0)
End With

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

• 24 Juillet 2018

• #4

bonjour Jauster,
merci beaucoup pour cette réponse
ça me semble une très bonne idée !
du coup la ligne de marquage s'additionne à la taille de mon point ce que je n'avais pas prévu mais je peux peut être la modifier en fonction, je vais explorer ça

encore merci
nico

 

Vote positif 0 Vote négatif

Jauster

XLDnaute Occasionnel

• 24 Juillet 2018

• #5

Effectivement, c'est un work-around, a voir si tu arrives à l'utiliser à tes souhaits dans ton fichier.

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

• 24 Juillet 2018

• #6

pour que ça ne change pas la taille de mon point :

poids = 5

With ActiveChart.SeriesCollection(1)
.Format.Line.Visible = msoTrue
.Format.Line.Weight = poids
.MarkerSize = ActiveChart.SeriesCollection(1).MarkerSize - poids
.MarkerBackgroundColor = RGB(255, 0, 0)
.MarkerForegroundColor = RGB(255, 0, 0)
End With

par contre si j'ai une autre couleur de point je ne sais pas comment récupérer la couleur du MarkerBackgroundColor pour l'appliquer à MarkerForegroundColor ...

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

• 24 Juillet 2018

• #7

évidemment la taille de mes points ne pourra être inférieure à l'épaisseur de mon trait mais bon si j'arrive à ça ce serait déjà pas mal...

 

Vote positif 0 Vote négatif

Jauster

XLDnaute Occasionnel

• 24 Juillet 2018

• #8

Concernant la couleur, cela marche-t-il avec ce code ?

VB:

.MarkerForegroundColor = .MarkerBackgroundColor
'à la place de .MarkerForegroundColor = RGB(255, 0, 0)

Je n'ai pas la possibilité de tester actuellement

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

• 24 Juillet 2018

• #9

je ne mettais pas le point devant MarkerBackgroundColor et je tournais en rond...
bravo
merci !

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

• 24 Juillet 2018

• #10

en résumé pour ceux qui liraient ça plus tard...

- on ne peut pas agir sur le trait d'un graph "nuage" sans agir sur la ligne de marquage (le trait qui entoure le point)
- la jolie solution grâce à Jauster pour contourner ça: passer la ligne de marquage de la même couleur que le point et redimensionner le point pour que la somme (épaisseur de la ligne de marquage + taille du point) = taille d'origine du point

poids = 5 ' l'épaisseur souhaitée

With ActiveChart.SeriesCollection(1)
.Format.Line.Visible = msoTrue
.Format.Line.Weight = poids
.MarkerSize = ActiveChart.SeriesCollection(1).MarkerSize - poids
.MarkerForegroundColor = .MarkerBackgroundColor
End With

- la limite: on ne peut pas avoir un point plus petit que l'épaisseur de la ligne

 

Vote positif 0 Vote négatif