1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
For k = 1 To i - 1
XL.Sheets("feuil" & k).Select
nbepoint = 35 + Text2.Text
XL.Range("C35:C" & nbepoint & ";F35:F" & nbepoint).Select
XL.Charts.Add
XL.ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
XL.ActiveChart.SetSourceData Source:=XL.Sheets("feuil" & k).Range("C35:C" & nbepoint & ";F35:F" & nbepoint), PlotBy:=xlColumns
XL.Sheets("feuil" & k).Select
XL.ActiveChart.Location Where:=xlLocationAsObject, Name:="feuil" & k
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "aaaaa"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "bbbbb"
End With
XL.ActiveSheet.Shapes("Graphique " & k).IncrementLeft -173.25
XL.ActiveSheet.Shapes("Graphique " & k).IncrementTop 13155.75 |
Partager