Copying Multiple Charts as a Picture in Excel 2007 gives Application-defined error

Question

Introduction

I can\'t seem to get the the ChartObjects.CopyPicture method to work in Excel 2007. No matter what I try I get an error.

Using

Answer 1

This issue has been driving me crazy for a long time. I finally found a solution that works, hopefully this will help someone else in the future.

Basically the solution was to Group the Charts as a single Shape object, then CopyPicture on that shape, then Ungroup when your finished.

With ActiveSheet.ChartObjects.ShapeRange.Group
    .CopyPicture Appearance:=xlScreen, Format:=xlPicture
    .Ungroup
End With

Sheets("Sheet2").Paste