I am trying to get vba to give me the low value of the chart series; but the
error message says "object does not support this property or method" in the
line starting with With"

What did i do to deserve this???

:-))

Sub LOWOFSERIES()
Dim XXX As Variant
Dim POINT As Long
With ActiveSheet.ChartObjects("Chart 964").SeriesCollection(5).Values
XXX = .Values
POINT = lBound(XXX)
End With
MsgBox POINT
End Sub

try taking the values off the end

With ActiveSheet.ChartObjects("Chart 964").SeriesCollection(5)
XXX = .Values
End With
POINT = lBound(XXX)


--
Regards,
Tom Ogilvy


"Paul" wrote:

I am trying to get vba to give me the low value of the chart series; but the
error message says "object does not support this property or method" in the
line starting with With"

What did i do to deserve this???

:-))

Sub LOWOFSERIES()
Dim XXX As Variant
Dim POINT As Long
With ActiveSheet.ChartObjects("Chart 964").SeriesCollection(5).Values
XXX = .Values
POINT = lBound(XXX)
End With
MsgBox POINT
End Sub

Thanks Tom,

Tried that, but it still comes up with the same error message on the with
line.

"Tom Ogilvy" wrote:

try taking the values off the end

With ActiveSheet.ChartObjects("Chart 964").SeriesCollection(5)
XXX = .Values
End With
POINT = lBound(XXX)


--
Regards,
Tom Ogilvy


"Paul" wrote:

I am trying to get vba to give me the low value of the chart series; but the
error message says "object does not support this property or method" in the
line starting with With"

What did i do to deserve this???

:-))

Sub LOWOFSERIES()
Dim XXX As Variant
Dim POINT As Long
With ActiveSheet.ChartObjects("Chart 964").SeriesCollection(5).Values
XXX = .Values
POINT = lBound(XXX)
End With
MsgBox POINT
End Sub

With ActiveSheet.ChartObjects("blah blah").Chart.SeriesCollection(5)

Also, LBound will return 1, the index of the first element of the array. To
get the series minimum, you could loop through the array of values ( your
variable XXX) and determine the lowest value, or you could take the slight
performance hit and use

Ymin = WorksheetFunction.Min(XXX)

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

"Paul" wrote in message
...
Thanks Tom,

Tried that, but it still comes up with the same error message on the with
line.

"Tom Ogilvy" wrote:

try taking the values off the end

With ActiveSheet.ChartObjects("Chart 964").SeriesCollection(5)
XXX = .Values
End With
POINT = lBound(XXX)


--
Regards,
Tom Ogilvy


"Paul" wrote:

I am trying to get vba to give me the low value of the chart series;
but the
error message says "object does not support this property or method" in
the
line starting with With"

What did i do to deserve this???

:-))

Sub LOWOFSERIES()
Dim XXX As Variant
Dim POINT As Long
With ActiveSheet.ChartObjects("Chart
964").SeriesCollection(5).Values
XXX = .Values
POINT = lBound(XXX)
End With
MsgBox POINT
End Sub