1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
With chartPage
.ApplyLayout(3)
.ChartStyle = 34
.ClearToMatchStyle()
.HasTitle = True
.ChartTitle.Characters.Text = nouveau_histo_2D.nom_histo
.SetSourceData(Source:=chartRange)
.ChartType = Excel.XlChartType.xl3DColumn
'AXE X
.Axes(Excel.XlAxisType.xlCategory, Excel.XlAxisGroup.xlPrimary).HasTitle = True
.Axes(Excel.XlAxisType.xlCategory, Excel.XlAxisGroup.xlPrimary).AxisTitle.Characters.Text = Mid(oBook.sheets(nouveau_histo_2D.nom_histo).cells(1.1).text, 1, InStr(oBook.sheets(nouveau_histo_2D.nom_histo).cells(1.1).text, ") /"))
'AXE Y
.Axes(Excel.XlAxisType.xlValue, Excel.XlAxisGroup.xlPrimary).HasTitle = True
.Axes(Excel.XlAxisType.xlValue, Excel.XlAxisGroup.xlPrimary).AxisTitle.Characters.Text = "Count or %"
'AXE Z
'?????
'?????
.Location(Excel.XlChartLocation.xlLocationAsNewSheet).Name = "graph " & nouveau_histo_2D.nom_histo
End With |
Partager