N
nicolas
Guest
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
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