How do I set the Maximum Property for this Chart in code
 

".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

How do I set the Maximum Property for this Chart in code
 

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" wrote in message
...
".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