« Macros-commandes VBA/Création de Graphique » : différence entre les versions
Contenu supprimé Contenu ajouté
Ligne 487 :
' Création du graphique, ne pas oublier le .Chart final
' L'objet graphique se place sur la plage et à sa taille
Set chGraph = .ChartObjects.Add(rPlageAcceuil.Left, rPlageAcceuil.Top, rPlageAcceuil.Width, rPlageAcceuil.Height).Chart
' Source du graphique
Set rPlageSource = .Range("A1:E7")
Ligne 494 ⟶ 493 :
With chGraph
' Type barre empilée
.ChartType = xlBarStacked
Ligne 505 ⟶ 503 :
' Légende en position haute
.Legend.Position = xlLegendPositionTop
' Axe des catégories▼
With .Axes(xlCategory)▼
▲ ' Axe des catégories
▲ With .Axes(xlCategory)
' Inversé
.ReversePlotOrder = True
| |||