Dynamically change x & y axis mins and maxs based on dynamically changing data?

Using Excel 365.

I have a set of data to be plotted, but the data range changes dynamically based on some user-inputs. The graph changes accordingly but the x and y axis min and max values do not. Depending on the user-inputs the graph displays very squashed looking data or only a fraction of the data. I need to find a way to have the graph's x and y axis min and max values changes with the data. If the graph's inputs for min and max axis values allowed me to input standard Excel formulas, this would be a trivial problem. Please see below for more details. Any advice or suggestions is appreciated!

Dynamic Graph Axes_Question.png

A simple example in the attachment. Moment refresh the chart depends on the solutions used in the actual workbook. It is difficult to say anything more from the pictures.
An example for version 365. Other versions may lack the formulas used.

Artik

Artik,

Thank you for the example to work through. It got me on the right track and ultimately to my solution. I ended up with the following code to change two charts with one on-click macro.

///////

Option Explicit

Sub xDavgBoth()

With Charts(1).Axes(xlCategory)
.MinimumScale = Sheets("Calculations").Range("F9").Value
.MaximumScale = Sheets("Calculations").Range("F8").Value
.MajorUnit = ((Sheets("Calculations").Range("F8").Value - Sheets("Calculations").Range("F9").Value) / 10)
End With

With Charts(1).Axes(xlValue)
.MinimumScale = Sheets("Calculations").Range("H9").Value - (Sheets("Calculations").Range("H8").Value - Sheets("Calculations").Range("H9").Value) / 3
.MaximumScale = Sheets("Calculations").Range("H8").Value + (Sheets("Calculations").Range("H8").Value - Sheets("Calculations").Range("H9").Value) / 3
.MajorUnit = (Sheets("Calculations").Range("H8").Value - Sheets("Calculations").Range("H9").Value) / 3
End With

Sheets("Interactive Still").Select
ActiveSheet.ChartObjects("Chart 37").Activate
ActiveChart.Axes(xlCategory).MinimumScale = Sheets("Calculations").Range("F9").Value
ActiveChart.Axes(xlCategory).MaximumScale = Sheets("Calculations").Range("F8").Value
ActiveChart.Axes(xlCategory).MajorUnit = ((Sheets("Calculations").Range("F8").Value - Sheets("Calculations").Range("F9").Value) / 10)
ActiveChart.Axes(xlValue).MinimumScale = Sheets("Calculations").Range("H9").Value - (Sheets("Calculations").Range("H8").Value - Sheets("Calculations").Range("H9").Value) / 3
ActiveChart.Axes(xlValue).MaximumScale = Sheets("Calculations").Range("H8").Value + (Sheets("Calculations").Range("H8").Value - Sheets("Calculations").Range("H9").Value) / 3
ActiveChart.Axes(xlValue).MajorUnit = (Sheets("Calculations").Range("H8").Value - Sheets("Calculations").Range("H9").Value) / 3

End Sub