rafou29
XLDnaute Junior
Bonjour,
J'ai un histogramme "empilé" qui a pour abscisse des dates. Je souhaiterais que ces dates s'affichent verticalement et non en fonction de la place dans le graphique (diagonal, vertical ,horizontal).
Pour cela j'aimerais savoir quel code me permettrait d'effectuer cette manipulation.
Voici le code que j'utilise pour créer mon histogramme :
Merci de votre attention
J'ai un histogramme "empilé" qui a pour abscisse des dates. Je souhaiterais que ces dates s'affichent verticalement et non en fonction de la place dans le graphique (diagonal, vertical ,horizontal).
Pour cela j'aimerais savoir quel code me permettrait d'effectuer cette manipulation.
Voici le code que j'utilise pour créer mon histogramme :
PHP:
Sheets("Sheet3").Select
Range("B3:C30").Select
Application.CutCopyMode = False
Charts.Add
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Sheets("Sheet3").Range("B3:C30") _
, PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).XValues = "=Sheet3!B3:B30"
ActiveChart.SeriesCollection(1).Name = "=""Arrêt"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet3"
With ActiveChart
.HasTitle = True
If ComboBox30.Value = "X" Then .ChartTitle.Characters.Text = TextBox40.Value Else .ChartTitle.Characters.Text = "Arrêt"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Durée (min)"
End With
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = False
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.CrossesAt = 1
.TickLabelSpacing = 1
.TickMarkSpacing = 1
.AxisBetweenCategories = True
.ReversePlotOrder = False
End With
Merci de votre attention
Dernière édition: