Bonjour à tous,
Après pas mal de recherche sur les forums j'ai enfin réussi a mettre en forme un graphique à l'aide d'une macro VBA.
Par contre impossible d'appliquer un remplissage dégradé radial en VBA. Toutes les méthodes que j'ai essayé m'ont donné un remplissage dégradé rectangulaire.
Pour le remplissage voici la méthode que j'utilise :
Auriez-vous une petite idée comment faire ?
Pour un exemple de ce que j'obtiens et de ce que je souhaite, j'ai ajouté un classeur.
Après pas mal de recherche sur les forums j'ai enfin réussi a mettre en forme un graphique à l'aide d'une macro VBA.
Par contre impossible d'appliquer un remplissage dégradé radial en VBA. Toutes les méthodes que j'ai essayé m'ont donné un remplissage dégradé rectangulaire.
Pour le remplissage voici la méthode que j'utilise :
Code:
Set cht = ActiveChart
Set srCol = cht.SeriesCollection(1)
Set ff = srCol.Format.Fill
ff.TwoColorGradient msoGradientFromCenter, 1
srCol.Format.Fill.ForeColor.RGB = RGB(0, 112, 192)
srCol.Format.Fill.BackColor.RGB = RGB(23, 55, 94)
srCol.Format.Fill.GradientStops(1).Transparency = 0.1
Auriez-vous une petite idée comment faire ?
Pour un exemple de ce que j'obtiens et de ce que je souhaite, j'ai ajouté un classeur.