None of this code adjusts the axis scale. Excel will just use its own
defaults.
In a column chart, you have hardly any influence over the category (X) axis
scale. In a 3D column chart, you have hardly any effect over most other
features of the chart, but it hardly matters since it's not legible anyway.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"maryam" wrote in message
...

Sub chart()

End Sub
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 17/01/2007 by 01pervezm
'

'
Charts.Add
ActiveChart.ChartType = xl3DColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B4"),
PlotBy:= _
xlColumns
ActiveChart.Location Whe=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
HasTitle = True
ChartTitle.Characters.Text = "chart"
Axes(xlCategory).HasTitle = True
Axes(xlCategory).AxisTitle.Characters.Text = "x"
Axes(xlSeries).HasTitle = False
Axes(xlValue).HasTitle = True
Axes(xlValue).AxisTitle.Characters.Text = "z"
End With
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 17/01/2007 by 01pervezm
'

'
Range("A1:B4").Select
Charts.Add
ActiveChart.ChartType = xlBarClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B4"),
PlotBy:= _
xlColumns
ActiveChart.Location Whe=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
HasTitle = True
ChartTitle.Characters.Text = "chart"
Axes(xlCategory, xlPrimary).HasTitle = True
Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x"
Axes(xlValue, xlPrimary).HasTitle = True
Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y"
End With
With ActiveChart
HasTitle = False
Axes(xlCategory, xlPrimary).HasTitle = False
Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub


this is a code, we were wondering if this code could be modified so it
automaticly alters the values to suit the new data inputed.
excel does this by default.
Basicaly wut she's tryin 2 say is how do u make the x axis bigger (by
not making the others smaller.




--
maryam