Histogram charting, scale change

Hello,

I have some problems to change parameters in my chart via VBA.
I have a Chart on my sheet, I can select it and I want to change the X axis scale.

I used :
With ActiveChart.Axes(xlCategory)
.MaximumScale = 16000
End With

It gives me an error saying that "MaximumScale" is not from the Axes Object.
I can change the Y axis by doing the same thing but replacing xlCategory by xlValue.

I am not sure how it works but the code with "xlCategory" did work for other charts.
Is it different for the histogram chart ?

Anyway, I would like to change the X axis scale, can someone help me please ?

Thank you very much in advance.

Thank you for your reply.
I am using a column type chart. I tried with the clustered and stacked (2D), I checked via the Excel options but it seems it does not have a numeric category axis.
In fact, my data for the X axis is supposed to go to 16 000 maximum but the chart displays until 1200 (I don't know why).

That's why I try to change the maximum scale value.

Sorry I don't have an example workbook yet, I will try to make one if I can.

I may have done an error when applying the data in the chart. (I am using a 2D column chart).
For X and Y axis, I set the data like this :

With ActiveChart
.SeriesCollection(1).XValues = x_value
.SeriesCollection(1).Values = y_value
End With

x_value and y_value are some arrays with the same size (16 000)
Is it correct ?

I encounter another problem using the bar chart, the limitation is 255 bars in a graph, is there something to change this ?

My example book exceeds the limitation size so I show you my example code :

Dim dat() As Variant
Dim maxx As Integer
Dim i As Long

maxx = 32082
ReDim dat(1 To maxx)
For i = 1 To maxx
     dat(i) = Sheet1.Cells(i, 1)
Next i

With Sheet1.ChartObjects.Item(1)
    .Activate
End With
Do Until ActiveChart.SeriesCollection.Count = 0
    ActiveChart.SeriesCollection(1).Delete
Loop
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = dat

I have an additional question concerning the format. I have some Date data on my X axis and I would like to format it, it does not give any error but it does not do anything. Could someone check my code ?

I have put my data in my histogram graph like this:

With ActiveChart
    Do Until .SeriesCollection.Count = 0
        .SeriesCollection(1).Delete
    Loop
    .SeriesCollection.NewSeries
    .SeriesCollection(1).Values = ydat
    .SeriesCollection(1).XValues = date
    .Axes(xlCategory, xlPrimary).TickLabels.NumberFormat = "h:mm"
End With

The Axis displays the date label but its format is like : 12:00:00 AM instead of 00:00

Thank you in advance