with ActiveChart.Parent
.top=range("A1").top
.left=range("A1").Left
end with

--
Regards,
Tom Ogilvy


"Art" wrote in message
...

How can I do this with the active chart? I want to create a chart,
move it to a specified position (A1), create another chart and move it to a
different position (A20), and so on.

Thanks.

Art

----- Tom Ogilvy wrote: -----

Not sure how this looks in Excel forum, but here in the newsgroup the
period/fullstops have been removed

with ActiveSheet.ChartObjects("mychart")
.top=range("D3").top
.left=range("D3").Left
end with

also, .left=range("D3").top was a typo - corrected above.


--
Regards,
Tom Ogilvy


"i-Zapp " wrote in message
...
with ActiveSheet.ChartObjects("mychart")
top=range("D3").top
left=range("D3").top
end with
---
Message posted from http://www.ExcelForum.com/