Thanks, that worked perfectly.
"Andy Pope" wrote:
Hi,
Small example
Sub ChartsToPictures()
Dim objCht As ChartObject
Dim shtTemp As Worksheet
For Each shtTemp In ActiveWorkbook.Worksheets
For Each objCht In shtTemp.ChartObjects
objCht.CopyPicture xlScreen, xlPicture
shtTemp.Paste
With shtTemp.Shapes(shtTemp.Shapes.Count)
.Left = objCht.Left
.Top = objCht.Top
End With
objCht.Delete
Next
Next
End Sub
Cheers
Andy
--
Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"iperlovsky" wrote in message
...
I am currently using the following macro to fix all values in the workbook
and then delete certain tabs. I recently added 5 charts to the tab I want
to
keep and was wondering if anyone knows how to fix the charts on that tab
as
embedded picture files in the worksheet. Any suggestions on how to modify
the
following routine, in particular the part that fixes all values to include
fixing the charts as embedded pictures, is appreciated.
Sub fixAll()
Application.DisplayAlerts = False
For i = 11 To Sheets.Count
With Sheets(i)
.UsedRange.Value = .UsedRange.Value
End With
Next i
Sheets([Transpose(Row(1:10))]).Delete
Application.DisplayAlerts = True
End Sub