Police legend en vba

Pierrot93

XLDnaute Barbatruc

• 9 Août 2012

• #2

Re : Police legend en vba

Bonjour,

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

bon après midi
@+p

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 9 Août 2012

• #3

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

R

ricouth

Guest

• 9 Août 2012

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Août 2012

• #5

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....

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 9 Août 2012

• #6

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

Code:

ActiveChart.Legend.Font2.Spacing = 1

plante

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 9 Août 2012

• #7

Re : Police legend en vba

Re, Bonjour Tototiti

Code:

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).

 

Vote positif 0 Vote négatif