Select All charts in active sheet

[84wister]

I feel like this should be incredibly straightforward but it's evading me for whatever reason, and i'm getting irritated. I just want a simple one liner that will select all of the charts on the active sheet without having to concern myself with chart names, or grouping. Something functionally equivalent to clicking all of the charts while holding the crtl key. No, recording as a macro doesn't work so please don't tell me thats what i need to do. On my version of excel (i.e. 2007), recording a macro only gives me the last chart i selected. Here's what i've already tried

activesheet.chartobjects.activate
activesheet.chartobjects.select
activesheet.chartobjects.selectall
activesheet.chartobjects.select false

I work with large amounts of data spread cross numerous sheets so solutions where i have to define names, or chart groupings don't work well as names and numbers of charts are constantly fluctuating in what i'm doing. I just need a macro that will easily select all the charts on an active sheet so i can move them around easily, and quickly cut and paste to different sheets via ctrl-c and ctrl-v. Any help would be much appreciated, thanks.

 

[84wister]

Yea it does the same thing as with manually copied charts. Selects the chart with the highest index in the chart objects collection

 

[sheetspread]

Just to test, did you try this line that Domenic posted on another thread a while ago:

ActiveSheet.Shapes.Range(Array("Chart 1", "Chart 2")).Select

replacing Chart 1, 2 etc if necessary