Légende graphique

Bonjour,

J'essaie d'afficher la légende de mon graphique VBA mais je n'y arrive pas.

Mon code est :

Sub graphVentes()

Dim graphVentes As Object
Dim plageVentes As Object

Set plageVentes = Sheets("ABC").Range("A3:K3,A13:K16")

Set graphVentes = ActiveSheet.Shapes.AddChart(Left:=Range("C7").Left, Width:=280, Top:=Range("B30").Top, Height:=200)
graphVentes.Chart.SetSourceData Source:=plageVentes
graphVentes.Chart.ChartType = xlColumnStacked
graphVentes.Chart.HasTitle = True
graphVentes.Chart.ChartTitle.Text = "Parts de marché des technologies en Asie"
graphVentes.Chart.HasLegend = True
graphVentes.Chart.SetElement (msoElementLegendNone)

End sub

Tout marche sauf la légende ! Pouvez vous m'aider svp ?

Bonjour,
Je ne pense pas que la procédure soit fonctionnelle.
Joins un fichier pour une aide adaptée du forum.
Cdlt.