Une macro pour le sparkline

Au cas où vous auriez souvent besoin de réaliser des graphes en sparkline comme celui présenté dans le dernier article, voici une petite macro qui transforme un histogramme standard en histogramme tel que celui de notre graphique sparkline.

Il ne reste plus qu’à minimiser l’espace entre la zone de traçage et la zone de graphique, puis à ancrer le graphe dans une cellule pour obtenir le sparkline désiré…

Voici le macro, puis la copie d’écran du graphe original et du graphe transformé. Il faut activer le graphe avant de lancer la macro…

Sub Nettoyage()

ActiveChart.Legend.Delete

ActiveChart.Axes(xlCategory).Select

With Selection

.MajorTickMark = xlNone

.MinorTickMark = xlNone

.TickLabelPosition = xlNone

End With

ActiveChart.ChartGroups(1).GapWidth = 20

ActiveChart.Axes(xlValue).Delete

ActiveChart.SeriesCollection(1).Interior.ColorIndex = 5

ActiveChart.PlotArea.Interior.ColorIndex = 19

ActiveChart.Axes(xlValue).MajorGridlines.Delete

End Sub