Select multiple charts to be copied

**bg18461** · 05-16-2008, 10:17 AM

I tried your code with a minor change (chart number). But nothing gets selected. The changes I made are below.

   
With ActiveSheet
        .ChartObjects("Chart 3").Select
        .ChartObjects("Chart 4").Select False
End With
Selection.Copy

**Andy Pope** · 05-16-2008, 10:33 AM

what version of excel do you have?

**bg18461** · 05-16-2008, 10:36 AM

2007, I should have mentioned that initially.

**Andy Pope** · 05-16-2008, 10:42 AM

Can you work with this?

It groups the chartobjects and the copies before ungrouping.
And when you paste you will need to ungroup as well Edit: Charts pasted in ungrouped

Sub x()
    With ActiveSheet
        With .Shapes.Range(Array("Chart 4", "Chart 3")).Group
            .Copy
            .Ungroup
        End With
    End With
End Sub

**bg18461** · 05-16-2008, 10:47 AM

Perfect, that works great! Thanks Andy.

Select multiple charts to be copied

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions