COPY CHARTS

  • Thread starter Thread starter msnews.microsoft.com
  • Start date Start date
M

msnews.microsoft.com

Hi,
how do I copy all charts in hidden sheet using a loop, my idea is
display a preview of each chart in a main sheet, and I'd like to use a loop
something like

for each chart in sheet2
chart(x).activate
chart(x).copy
sheet1.select
activesheet.paste
next x

well that's the main idea, any help will be greatly appreciated, thanks !!
 
You don't want to try to activate a hidden sheet (and don't need to).

Dim cObj as ChartObject
for each cObj in Worksheets("sheet2").ChartObjects
cObj.copy
Range("C9").Select
Activesheet.Paste
Next
 
Back
Top