XL 2019 Police étiquette graphique

[Gege72]

Bonjour,
Le problème va peut-être paraître simple mais je ne parviens pas à le résoudre. J'ai un histogramme avec un axe des x représentant des espèces végétales. Je voudrais mettre en italique certains noms comme dans le tableau à l'origine du graphique. Cependant, il semblerait qu'Excel ne prenne pas en compte la police des étiquettes du tableau. Comment faire dans ce cas ?
Vous remerciant par avance,
Cordialement

 

[sylvanu]

Bonjour Gégé, et bienvenu sur XLD,

il semblerait qu'Excel ne prenne pas en compte la police des étiquettes du tableau.

On peut modifier la police et la taille des étiquettes d'un histogramme, mais seulement l'ensemble des étiquettes, pas uniquement certaines.

 

[job75]

Bonjour Gege72, sylvanu,

Voyez le fichier joint et le graphique histogramme.

1) Formater l'axe des X : police taille 1 et couleur blanche pour le rendre invisible.

2) Ajouter des étiquettes de données et les mettre en forme :

- texte => nom de catégorie

- police taille 12

- police gras et italique pour le seul 2ème point

- les déplacer sous les barres.

A+

 

[job75]

On peut modifier la police et la taille des étiquettes d'un histogramme, mais seulement l'ensemble des étiquettes, pas uniquement certaines.

Tu es sur Excel 2007 je crois, c'est peut-être vrai sur cette version.

Chez moi sur Excel 2019 on peut formater les étiquettes de données séparément.

 

[Hecatonchire]

Bonjour,

1-Axe Horizontal > Etiquette Aucune
2-Ajouter une série du même nombre de valeur ayant toutes comme valeur 0
3-Passer le nouveau graphique en courbe
4-Ajouter des étiquettes, valeurs personnalisées, basées sur les étiquettes de l'axe Horizontal, position En dessous
5-Formatter les étiquettes voulues
6-Bordure pour la courbe : Aucune

 

[job75]

Si l'on veut que les étiquettes se mettent à jour quand on modifie le tableau on pourra utiliser cette macro :

Sub MAJ()
Dim Ch As Chart, n%, c As Range
Set Ch = ActiveSheet.ChartObjects(1).Chart
With Ch.SeriesCollection(1)
    For n = 1 To .Points.Count
        Set c = Cells(1, n)
        With .Points(n).DataLabel
            .Caption = c.Text
            .Font.Color = c.Font.Color
            .Font.Size = c.Font.Size
            .Font.Bold = c.Font.Bold
            .Font.Italic = c.Font.Italic
            .Top = Ch.Axes(xlCategory).Top
            .Top = Ch.Axes(xlCategory).Top 'chez moi c'est nécessaire de répéter ??!!   
        End With
    Next n
End With
End Sub

 

[job75]

Cette histoire de double exécution pour fixer la propriété Top du DataLabel m'intrigue.

J'ai trouvé une solution pour l'éviter => sélectionner l'objet :

Sub MAJ()
Dim Ch As Chart, n%, c As Range
Set Ch = ActiveSheet.ChartObjects(1).Chart
With Ch.SeriesCollection(1)
    For n = 1 To .Points.Count
        Set c = Cells(1, n)
        With .Points(n).DataLabel
            .Caption = c.Text
            .Font.Color = c.Font.Color
            .Font.Size = c.Font.Size
            .Font.Bold = c.Font.Bold
            .Font.Italic = c.Font.Italic
            .Select 'sélectionne l'objet
            .Top = Ch.Axes(xlCategory).Top
        End With
    Next n
    ActiveCell.Activate 'désélectionne
End With
End Sub

Mais ça ne me dit pas pourquoi ça fonctionne bien dans ce cas et pas dans l'autre.

 

[job75]

Autre solution, bien meilleure, mais qui n'explique toujours rien :

Sub MAJ()
Dim Ch As Chart, n%, c As Range
Set Ch = ActiveSheet.ChartObjects(1).Chart
With Ch.SeriesCollection(1)
    For n = 1 To .Points.Count
        Set c = Cells(1, n)
        With .Points(n).DataLabel
            .Caption = c.Text
            .Font.Color = c.Font.Color
            .Font.Size = c.Font.Size
            .Font.Bold = c.Font.Bold
            .Font.Italic = c.Font.Italic
            .Top = .Top 'force la lecture/écriture de la propriété
            .Top = Ch.Axes(xlCategory).Top
        End With
    Next n
End With
End Sub

Pour ceux qui n'ont pas compris comment tester : donnez à la police du tableau la taille 20 et lancez la macro.