spitfire378
XLDnaute Occasionnel
Bonjour a tous j'ai ajouté a ma macro me permettant de créer un graphique, un bout de code pour modifier la taille de la police de l'axe des abcisses. Mais a chaque fois que je relance la macro celle-ci revient a sa valeur par défaut.
Si vous pouviez m'aider merci d'avance.
Si vous pouviez m'aider merci d'avance.
Code:
'----------Orientations----------
Sheets("Feuil2").Select
Dim sourcegraph9 As Range
Set sourcegraph9 = Sheets("Feuil2").Range("CX2:CY" & [CX65536].End(xlUp).Row)
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=sourcegraph9, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil3"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Orientations a la sortie"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
ActiveChart.HasLegend = False
ActiveChart.Axes(xlCategory).Select
Selection.TickLabels.AutoScaleFont = True
With Selection.TickLabels.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 7
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
With Selection.TickLabels
.Alignment = xlCenter
.Offset = 100
.ReadingOrder = xlContext
.Orientation = xlUpward
End With