Police legend en vba

[ricouth]

Bonjour
j'ai cree un graph en vba , et chaque fois qu'il s'affiche la police de la légende possede un espacement de caractere " etendu de 10 pt" et je voudrais que celui ci soit normal , je suis oblige de le modifier avec la boite de dialogue . quelqu'un peut il m'aider et me donnner la comande en vba pour forcer l'écriture de cete légende

Merci

 

[Pierrot93]

Re : Police legend en vba

Bonjour,

essaie avec l'enregistreur de macro, devrait te donner le code à utiliser...

bon après midi
@+p

 

[MJ13]

Re : Police legend en vba

Bonjour Ricou, Pierrot

Voir peut-être un code de ce type à adapter (fait avec l'enregistreur de macro XL2010 qui est mieux que sous XL2007):

ActiveChart.Legend.Select
'ActiveChart.Legend.LegendEntries(1).Select
ActiveChart.Legend.Font.Size = 15

 

[ricouth]

Re : Police legend en vba

Merci pour vos réponses

mais j'ai déja essayé vos 2 solutions ,
pour la macro ,il ne donne pas la commande
pou l'ecriture , le size donne la taille
et moi je veux l'espacement
je suis preneur de toutes vos idees

merci

 

[Pierrot93]

Re : Police legend en vba

Re, bonjour Michel🙂

Aarf je n'ai que 2003, et si ce n'est peut être utiliser une police particulière, sauf erreur je ne peux modifier l'espacement des caractères....

 

[tototiti2008]

Re : Police legend en vba

Bonjour ricouth, Bonjour Pierrot 🙂, Bonjour Michel 🙂,

Que 2003 et 2007 sous la main et je n'arrive pas non plus à trouver
Il semble que la propriété concernée soit Spacing, et dans l'aide 2007 il semble l'attribuer à l'objet Font2

mais

ActiveChart.Legend.Font2.Spacing = 1

plante

Peut-être que Michel va trouver ça avec son enregistreur XL2010

 

[MJ13]

Re : Police legend en vba

Re, Bonjour Tototiti

Sub Macro3()
'
' Macro3 Macro
'
'
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.Legend.Select
    With Selection.Format.TextFrame2.TextRange.Font
        .BaselineOffset = 0
        .Spacing = -1
    End With
    With Selection.Format.TextFrame2.TextRange.Font
        .BaselineOffset = 0
        .Spacing = 1
    End With
    With Selection.Format.TextFrame2.TextRange.Font
        .BaselineOffset = 0
        .Spacing = 0
    End With
    Range("K16").Select
End Sub

L'enregistreur me donne ceci avec espacement Condensé (-1) , Etendu(1) et normal (0).