titre, légende pour graphique

[nicolas]

Bonjour!
J'ai créer un graphique par VBA.
Seulement je souhaite lui donner un titre, des légendes pour les axes x et y, ainsi que lui donner la dimension que je veux.

Qui peux m'aider?

merci.


Dim cht As Chart
Set cht = Charts.Add
ActiveChart.ChartType = xlXYScatter

Application.ScreenUpdating = False
cht.SetSourceData Source:=Sheets("tabelle1").Range("A1:CW2"), _
PlotBy:=xlRows

cht.Export "test.gif"
With UserForm1.Ima
.Picture = LoadPicture("test.gif")
.AutoSize = True
End With

Kill "test.gif"
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True