Affichage valeurs abscisse

[Résolu]
Signaler
Messages postés
29
Date d'inscription
lundi 8 mars 2010
Statut
Membre
Dernière intervention
14 avril 2010
-
Messages postés
29
Date d'inscription
lundi 8 mars 2010
Statut
Membre
Dernière intervention
14 avril 2010
-
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


Merci de votre attention !

1 réponse

Messages postés
29
Date d'inscription
lundi 8 mars 2010
Statut
Membre
Dernière intervention
14 avril 2010
1
J'ai trouvé la réponse sur un autre forum.

Il suffit de rajouter ce bout de code:

With ActiveChart.Axes(xlCategory).TickLabels
    .NumberFormat = "m/d/yyyy"
    .Orientation = 45
    End With