
ActiveChart.Axes(xlCategory).Select()
Selection.TickLabels.AutoScaleFont = True
With s.Selection.TickLabels.Font
.Name = "Arial"
.FontStyle = "Normale"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With |
