Discussion :

[MaverickM]

Bonjour à tous,

Je me permets d'écrire car j'ai deux soucis de mise en forme de la légende d'un graphique sous Excel.

Je souhaiterais positionner la légende à un endroit que j'ai défini, pour une taille de police définie et en gras :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub AfficherLgnde()
    'Mise en forme de la légende
 
      ActiveSheet.ChartObjects("Graphique 1").Activate
        ActiveChart.HasLegend = True
 
        ActiveChart.Legend.Left = 52.247
        ActiveChart.Legend.Top = 70.616
        ActiveChart.Legend.Font.Bold = True
        ActiveChart.Legend.Font.Size = 11
End Sub

Mon soucis est que lorsque je fais cela, la taille de l'objet légende se fixe à une valeur que je ne connais pas et lorsque je souhaite rajouter des courbes sur mon graphique elles n'apparaissent pas dans la légende puisqu'elle dépasse du cadre.
En résumé j'aimerais trouver la propriété AutoSize de la légende.

Je ne sais pas si je suis assez clair... Est ce que quelqu'un aurait une solution ?

Bien cordialement,
MM

[Jean-Philippe André]

Salut,
il n'y a pas d'AutoSize pour l'objet Legend
https://learn.microsoft.com/fr-fr/of...legend(object)

Donc l'idée ici serait d'utiliser les propriétés Width et Heigh après l'ajout des courbes.

[MaverickM]

Bonjour,

Je vous remercie pour votre réponse, justement je suis quasi sûr que l'on peut trouver quelque chose pour réaliser un auto size puisque excel le fait instantanément si je lui demande d'afficher les légendes à la main...

Mais ok... je vais donc créer un compteur des courbes affichées et redimensionner ma légende en height via un multiple de ce dernier.

Cordialement,
MM