Code :
- Sub test()
- Dim xlApp As New Excel.Application
- Dim xlBook As Workbook
- Dim NomFichier As String
- Set xlApp = CreateObject("Excel.Application" )
- Set xlBook = xlApp.Workbooks.Add
- xlApp.Visible = True
- Charts.Add
- ActiveChart.ChartType = xlLineMarkers 'Type de graphe
- ActiveChart.SetSourceData Source:=Sheets("Feuil1" ).Range("A1" )
- ActiveChart.SeriesCollection.NewSeries
- ActiveChart.SeriesCollection.NewSeries
- ActiveChart.SeriesCollection(1).XValues = "={""A"",""B"",""C"",""D""}"
- ActiveChart.SeriesCollection(1).Values = "={1,2,3,4}"
- ActiveChart.SeriesCollection(1).Name = "=""Série 1"""
- ActiveChart.SeriesCollection(2).XValues = "={""A"",""B"",""C"",""D""}"
- ActiveChart.SeriesCollection(2).Values = "={5,6,7,8}"
- ActiveChart.SeriesCollection(2).Name = "=""Série 2"""
- ActiveChart.Location Where:=xlLocationAsNewSheet
- With ActiveChart
- .HasTitle = True
- .ChartTitle.Characters.Text = "Titre graphe"
- .Axes(xlCategory, xlPrimary).HasTitle = True
- .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Titre abcisses"
- .Axes(xlValue, xlPrimary).HasTitle = True
- .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Titre ordonnées"
- End With
- End Sub
|