Transparence barres 3D en VBA

Bonjour je n'arrive pas à trouver comment appliquer une transparence sur des barres 3D d'un graphique en VBA.
L'enregistreur de Macro ne me donne pas le code non plus.
Rien trouvé sur le net.

J'arrive à changer la couleur sans difficulté :

Code:

---

Worksheets("DataGraph").ChartObjects("GraphiqueTAS1").Chart.SeriesCollection(2).Interior.Color = RGB(80, 155, 80)

---

Mais pour la transparence... je sèche.
Quelqu'un aurait la solution ?

Up

Bonjour,

Tu peux utiliser cette synthaxe :

Code:

---

1 2 3 4 5 6 7 8 9

Dim GR1 As ChartObject Dim serCol As Series   '1er graphique de la feuille Set GR1 = Worksheets("Feuil1").ChartObjects(1) '2eme serie du graphique Set serCol = GR1.Chart.SeriesCollection(2)   serCol.Format.Fill.Transparency = 0.5

---

bon après midi
michel