VBA Encadrement de la légende.

[MJ13]

Bonjour à tous

Quand je fais un graphique sur XL2007 avec la touche F11, ma légende n'est pas encadrée.

Mais l'enregistreur de macros ne me laisse que ce code:

 ActiveChart.Legend.Select

Auriez vous le code pour encadrer cette légende (peut être que sous XL2003, avec Henry cela fonctionne 🙂).

Merci d'avance.

 

[mromain]

Re : VBA Encadrement de la légende.

Re bonjour 😉

Essaye avec

ActiveChart.Legend.Format.Line.Visible = msoCTrue

a+

 

[MJ13]

Re : VBA Encadrement de la légende.

Bonjour Mickaël

Encore toi, mais arrête de m'embêter 😛.

Merci beaucoup, c'est vrai que Henry sur les objets, c'était mieux avant sur XL2003 😉.

Sinon, avec l'auto-complétion, j'ai pu mettre une largeur de 2 points.

    ActiveChart.Legend.Format.Line.Visible = msoCTrue
    ActiveChart.Legend.Format.Line.Weight = 2

Bonne soirée 🙂.

 

[mromain]

Re : VBA Encadrement de la légende.

Re,

J'y étais allé "à taton" pour trouver la ligne de code (avec l'auto-complétion).
Par contre, Henry a l'air de s'être amélioré dans la version 2010.
Voilà ce qu'il me dit :

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.Legend.Select
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
    End With
End Sub

a+