Copy Chart and Insert in new Sheet as picture over the same location

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

TFriis - 22 Jan 2008 15:04 GMT

As topic says: I would like som VBA code, that runs through all charts
in activesheet and copy pastes them to a new sheet as pictures and
placed above the same cells...

Can any of you out there help me :)

Reply to this Message

Jon Peltier - 22 Jan 2008 16:27 GMT

Sub ChartsToPictures()
Dim chob As ChartObject
Dim pict As Shape
Dim shSource As Worksheet
Dim shTarget As Worksheet

Set shSource = ActiveSheet
Set shTarget = ActiveWorkbook.Worksheets.Add(Before:=shSource)

For Each chob In shSource.ChartObjects
chob.Chart.CopyPicture xlScreen, xlPicture, xlScreen
shTarget.Paste
Set pict = shTarget.Shapes(shTarget.Shapes.Count)
pict.Left = chob.Left
pict.Top = chob.Top
Next
End Sub

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______

> As topic says: I would like som VBA code, that runs through all charts
> in activesheet and copy pastes them to a new sheet as pictures and
> placed above the same cells...
>
> Can any of you out there help me :)

Reply to this Message