Select multiple charts to be copied

**bg18461** · 05-16-2008, 09:55 AM

I am trying to select 2 charts on my worksheet simultaneously so I can copy them into word via vba. Manually its no problem, select 2nd chart while pressing the ctrl button, but how do you do this programmatically via vba.

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

how about this...


    With ActiveSheet
        .ChartObjects(1).Select
        .ChartObjects(2).Select False
    End With
    Selection.Copy

**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

Select multiple charts to be copied

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Select multiple charts to be copied

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions