From: Frank on
Here my code:

Set Cht_level = Charts.Add
With Cht_level
.ChartType = xlLine
.SetSourceData Source:=cht_src
End With

if fails.

But if I

add cht_src.Select

before the code, it works brilliantly?

Why?
From: Mike Middleton on
Frank -

Excel chart guru Jon Peltier has VBA code examples at

http://peltiertech.com/Excel/ChartsHowTo/QuickChartVBA.html

- Mike
http://www.MikeMiddleton.com
Mike(a)DecisionToolworks.com


"Frank" <no.reply7(a)comcast.net> wrote in message
news:ab71f33a-679d-4c45-871e-435fadb31fbc(a)j36g2000prj.googlegroups.com...
> Here my code:
>
> Set Cht_level = Charts.Add
> With Cht_level
> .ChartType = xlLine
> .SetSourceData Source:=cht_src
> End With
>
> if fails.
>
> But if I
>
> add cht_src.Select
>
> before the code, it works brilliantly?
>
> Why?

From: Jon Peltier on
How is cht_src defined?

- Jon
-------
Jon Peltier
Peltier Technical Services, Inc.
http://peltiertech.com/


On 6/6/2010 1:12 PM, Frank wrote:
> Here my code:
>
> Set Cht_level = Charts.Add
> With Cht_level
> .ChartType = xlLine
> .SetSourceData Source:=cht_src
> End With
>
> if fails.
>
> But if I
>
> add cht_src.Select
>
> before the code, it works brilliantly?
>
> Why?
From: Frank on
Hi Jon

I've actaully look at your site. It look you set the chart source as
selection.

Here is my non-working code"

Set cht_src = Range(Range("A1").Offset(1, 2 * (c + 1) + 2),
Range("A1").Offset(Application.Count(Range("dist_x_axys")) + 1, 2 * (c
+ 1) + 2 + c))

Set Cht_level = Charts.Add
With Cht_level
.ChartType = xlLine
.SetSourceData Source:=cht_src
End With


here is my working code:

Set cht_src = Range(Range("A1").Offset(1, 2 * (c + 1) + 2),
Range("A1").Offset(Application.Count(Range("dist_x_axys")) + 1, 2 * (c
+ 1) + 2 + c))

cht_src.Select

Set Cht_level = Charts.Add
With Cht_level
.ChartType = xlLine
.SetSourceData Source:=cht_src
End With

The only difference is the cht_src.Select

I find it odd that you need to select the chart source in order to
graph it correctly.
From: Jon Peltier on
Frank -

I find this strange too.

What if you remove the .Select statement, then move .ChartType after
..SetSourceData?

- Jon
-------
Jon Peltier
Peltier Technical Services, Inc.
http://peltiertech.com/


On 6/7/2010 11:55 AM, Frank wrote:
> Hi Jon
>
> I've actaully look at your site. It look you set the chart source as
> selection.
>
> Here is my non-working code"
>
> Set cht_src = Range(Range("A1").Offset(1, 2 * (c + 1) + 2),
> Range("A1").Offset(Application.Count(Range("dist_x_axys")) + 1, 2 * (c
> + 1) + 2 + c))
>
> Set Cht_level = Charts.Add
> With Cht_level
> .ChartType = xlLine
> .SetSourceData Source:=cht_src
> End With
>
>
> here is my working code:
>
> Set cht_src = Range(Range("A1").Offset(1, 2 * (c + 1) + 2),
> Range("A1").Offset(Application.Count(Range("dist_x_axys")) + 1, 2 * (c
> + 1) + 2 + c))
>
> cht_src.Select
>
> Set Cht_level = Charts.Add
> With Cht_level
> .ChartType = xlLine
> .SetSourceData Source:=cht_src
> End With
>
> The only difference is the cht_src.Select
>
> I find it odd that you need to select the chart source in order to
> graph it correctly.
 |  Next  |  Last
Pages: 1 2
Prev: timer for sheet
Next: Functions newsgroup