Discussion :

[Cdeps62]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

Bonjour,

Tu peux utiliser cette synthaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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