this works in 2003
With Sheets("ScratchArea")
.Range("A22:B29").CopyPicture Appearance:=xlScreen, _
Format:=xlBitmap
End With
With Sheets("Figure 21C")
.ChartObjects("Chart 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.Paste
End With
--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=165045
Microsoft Office Help