".Axes(xlValue).MaximumScale =" don't work inside the With ChtObj.Chart

Set ChtObj = Worksheets(shtName).ChartObjects.Add(Left:=375, Top:=7,
Width:=575, Height:=360)

With ChtObj.Chart
.ChartType = xlColumnClustered
.Legend.Position = xlLegendPositionBottom
.SetSourceData Source:=ActiveSheet.Range("$K$26:$L$" & rngLength)
.SeriesCollection(1).Name = "Quantity by Date"
.HasTitle = True
.ChartTitle.Text = ChtName

With .SeriesCollection.NewSeries
.Values = Sheets(shtName).Range("$M$26:$M$" & rngLength)
.XValues = Sheets(shtName).Range("$K$26:$K$" & rngLength)
.Name = "Cumulative Quantity"
.ChartType = xlLine
End With
.SeriesCollection(2).AxisGroup = 2
End With

The line of code isn't included in the quoted routine.

- Jon
-------
Jon Peltier, Peltier Technical Services, Inc.
http://PeltierTech.com/WordPress/>
Advanced Excel Conference - Training in Charting and Programming
http://peltiertech.com/Training/2009...00906ACNJ.html
_______


"Ayo" <(E-Mail Removed)> wrote in message
news:E73D3576-3F86-40FD-B2F5-(E-Mail Removed)...
> ".Axes(xlValue).MaximumScale =" don't work inside the With ChtObj.Chart
>
> Set ChtObj = Worksheets(shtName).ChartObjects.Add(Left:=375, Top:=7,
> Width:=575, Height:=360)
>
> With ChtObj.Chart
> .ChartType = xlColumnClustered
> .Legend.Position = xlLegendPositionBottom
> .SetSourceData Source:=ActiveSheet.Range("$K$26:$L$" & rngLength)
> .SeriesCollection(1).Name = "Quantity by Date"
> .HasTitle = True
> .ChartTitle.Text = ChtName
>
> With .SeriesCollection.NewSeries
> .Values = Sheets(shtName).Range("$M$26:$M$" & rngLength)
> .XValues = Sheets(shtName).Range("$K$26:$K$" & rngLength)
> .Name = "Cumulative Quantity"
> .ChartType = xlLine
> End With
> .SeriesCollection(2).AxisGroup = 2
> End With
>