rafou29
Messages postés29Date d'inscriptionlundi 8 mars 2010StatutMembreDernière intervention14 avril 2010
-
29 mars 2010 à 11:13
rafou29
Messages postés29Date d'inscriptionlundi 8 mars 2010StatutMembreDernière intervention14 avril 2010
-
29 mars 2010 à 15:49
Bonjour,
J'ai un histogramme empilé auquel je souhaiterais afficher mes valeurs en abscisse soit en vertical, soit en diagonale (pour une meilleure lisibilité). Quelqu'un connait-il le code qui me permet de modifier l'affichage de mes valeurs en abscisse ?
Voici le code que j'utilise pour afficher mon histogramme:
Private Sub CommandButton55_Click()
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 sur ligne"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet3"
With ActiveChart
.HasTitle = True
If ComboBox30.Value "Production Line" Then .ChartTitle.Characters.Text TextBox40.Value Else .ChartTitle.Characters.Text = "Arrêt de la ligne"
.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
End Sub