taille d'un graphique

[Elve]

Bonjour à tous,


Je crée des graphiques à partir d'une boucle.
Je voudrais changer la taille par defaut de ces graphiques, mais je ne trouve pas la commande.

J'ai bien trouvé qqchose du style:
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Graphique 1").ScaleWidth 0.8, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Graphique 1").ScaleHeight 0.88, msoFalse, _
msoScaleFromTopLeft


Mais malheuresement je ne peux m'en servir, car mon graphiqe crée à partir d'une boucle n'est pas nommé.
Je reussi à modifier des parametres tels que les axes sans avoir à nommer le graphique en utilisant with.
Soit le code
Range("A1😀5").Select
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Courbe - Histo. 2 axes"
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1😀5"), PlotBy:= _
xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlCategory, xlSecondary) = False
.HasAxis(xlValue, xlPrimary) = True
.HasAxis(xlValue, xlSecondary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale
ActiveChart.Axes(xlCategory, xlSecondary).CategoryType = xlCategoryScale
ActiveChart.Axes(xlValue, xlSecondary).Select
With ActiveChart.Axes(xlValue, xlSecondary)
.MinimumScaleIsAuto = True
.MaximumScale = 50
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
End With


Si vous avez une idée je vous en remercie par avance.


Elve