E
Elve
Guest
Bonjour à tous,
J'ai besoin d'aide pour modifier la taille d'un graphique.
Je voudrais le faire pendant sa création.
Pour créer mes graphiques j'utilise une boucle, de ce fait mes graphiques ne sont pas nommés je ne peux donc utilisé la fonction:
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Graphique 1").ScaleWidth 0.96, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Graphique 1").ScaleHeight 0.93, msoFalse, _
msoScaleFromTopLeft
Je vous donne mon programme:
Dim MyRange As Range
Dim Calcul2 As String
Calcul2 = ActiveSheet.Name
Set MyRange = ActiveSheet.Range(ActiveCell.Offset(-1), ActiveCell.Offset(3, 12))
Range(MyRange.Address).Select
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Courbe - Histo. 2 axes"
ActiveChart.SetSourceData Source:=Sheets(Calcul2).Range(MyRange.Address), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:=Calcul2
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.Axes(xlCategory, xlSecondary).HasTitle = False
.Axes(xlValue, xlSecondary).HasTitle = False
End With
End Sub
Sub Traitementgraphique()
Sheets("Calcul2").Select
i = 4
While Cells(i, 2) = "Moyenne Retard "
Sheets("Calcul2").Select
Range("Z4") = Cells(i, 1).Value
Cells(i, 2).Select
Application.Run "'test.xls'!Graphique"
i = i + 6
Wend
End Sub
Merci à tous pour votre aide,
Elve
J'ai besoin d'aide pour modifier la taille d'un graphique.
Je voudrais le faire pendant sa création.
Pour créer mes graphiques j'utilise une boucle, de ce fait mes graphiques ne sont pas nommés je ne peux donc utilisé la fonction:
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Graphique 1").ScaleWidth 0.96, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Graphique 1").ScaleHeight 0.93, msoFalse, _
msoScaleFromTopLeft
Je vous donne mon programme:
Dim MyRange As Range
Dim Calcul2 As String
Calcul2 = ActiveSheet.Name
Set MyRange = ActiveSheet.Range(ActiveCell.Offset(-1), ActiveCell.Offset(3, 12))
Range(MyRange.Address).Select
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Courbe - Histo. 2 axes"
ActiveChart.SetSourceData Source:=Sheets(Calcul2).Range(MyRange.Address), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:=Calcul2
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.Axes(xlCategory, xlSecondary).HasTitle = False
.Axes(xlValue, xlSecondary).HasTitle = False
End With
End Sub
Sub Traitementgraphique()
Sheets("Calcul2").Select
i = 4
While Cells(i, 2) = "Moyenne Retard "
Sheets("Calcul2").Select
Range("Z4") = Cells(i, 1).Value
Cells(i, 2).Select
Application.Run "'test.xls'!Graphique"
i = i + 6
Wend
End Sub
Merci à tous pour votre aide,
Elve