Ajustement légende Graphique

Bonjour, est-il possible d'ajuster la légende d'un graphique par VBA pour l'afficher en entier dans le cadre

Dans le fichier joint, on peut voir que la légende n'affiche pas tous les pays.

Merci pour vos réponses.

Bonjour,

Question : pourquoi tu n'as pas mis tes valeurs dans un tableau avant de faire ton graphique ?

avec l'enregistreur de macro j'ai juste agrandi le graphique :

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveChart.ChartArea.Select
    ActiveSheet.Shapes("Graphique 1").ScaleWidth 1.3393258427, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Graphique 1").ScaleHeight 2.1724137931, msoFalse, _
        msoScaleFromTopLeft
End Sub

Salut,

Le graphique je l'ai généré grâce à un code. j'ai pas envoyé le fichier pour t'épargner un code de 5 pages.

De plus j'ai des contraintes de taille. le graphique je ne peux pas l'agrandir, il est vrai que j'aurais du le préciser.

D'accord, je te propose ça. Je pense qu'il y a mieux à faire au niveau du code, mais c'est tout ce que je peux te proposer avec mes maigres compétences ^^

Sub Macro2()
'
' Macro2 Macro
'

'
    ActiveSheet.ChartObjects(1).Chart.Legend.Select 'ligne modifié
    Selection.Left = 169.215
    Selection.Top = 3.861
    Selection.Width = 164.534
    Selection.Height = 104.888
End Sub

Merci, je vais faire comme ca je pense

Bonjour,