#Const ApplicationVersion = 14 'Get at runtime with Val(Application.Version)
Sub SetXAxis2ReportMonth()
wsGraphic.ChartObjects("Diagram 1").Activate
With ActiveChart.Axes(xlCategory)
.MinimumScale = wsGraphic.[A22]
.MaximumScale = wsGraphic.[A18]
.MajorUnit = wsGraphic.[A21]
If DateDiff("m", [A17], [A18]) < 6 Then
.TickLabels.NumberFormat = "DD\/MM"
.TickLabels.NumberFormat = "MM\/YY"
#If ApplicationVersion > 14 Then
ActiveChart.FullSeriesCollection(1).XValues = "=Graphic!$A$27:$Aquot; & 27 + [A20]
ActiveChart.FullSeriesCollection(1).Values = "=Graphic!$B$27:$Bquot; & 27 + [A20]
ActiveChart.SetSourceData Source:=wsGraphic.Range("A26:B" & 27 + [A20])