Carte Excel colonne de feuille de calcul barre graphique couleur

Question

Si j'ai un tableau comme:

        x   y
        1   3
        2   8
        3   9
        4   0
color   3   1

est-il possible de créer un graphique à barres dans Excel (2007) où il y a des bars pour X et Y et l'indice de couleur de chaque barre pourrait être associée à la dernière ligne (couleur marquée) de la table?

Answer 1

Cet extrait VBA tracer un graphique à barres et d'utiliser les valeurs finales dans les colonnes comme ColorIndex pour les barres.

Pour l'utiliser, il suffit de sélectionner les deux colonnes de données (y compris les en-têtes et la dernière ligne) et puis appuyez sur F5 sur le code suivant:

Sub BarChartWithColors()
    Dim selectedRng As Range, chartRng As Range, colorRng As Range

    Set selectedRng = Selection
    Set chartRng = Range(Selection.Cells(1, 1), Selection.Cells(selectedRng.Rows.Count - 1, 2))
    Set colorRng = Range(Selection.Cells(selectedRng.Rows.Count, 1), Selection.Cells(selectedRng.Rows.Count, 2))

    Charts.Add
    ActiveChart.ChartType = xlBarClustered
    ActiveChart.SetSourceData Source:=chartRng, PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" //Change sheet destination as appropriate
    ActiveChart.SeriesCollection(1).Interior.ColorIndex = colorRng.Cells(1, 1)
    ActiveChart.SeriesCollection(2).Interior.ColorIndex = colorRng.Cells(1, 2)
End Sub