I think you might want to define the requirement in a little more detail.
You can to go though each collection of objects on a sheet (charts, shapes, etc) and copy/paste them across to a PowerPoint slide (as suggested, paste-linking the charts would mean you can still update them in Excel). The used ranges could also be checked and put in PowerPoint as tables.
You'd have to decide how to define the layout of the page but in principle, it's do-able with something like[VBA]Dim ws As Worksheet
Dim appPPT As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Dim pptSld As PowerPoint.Slide
Dim shp As Shape

Set appPPT = New PowerPoint.Application
Set pptPres = appPPT.Presentations.Add

For Each ws In ActiveWorkbook.Sheets
' add a slide
Set pptSld = pptPres.Slides.Add(pptPres.Slides.Count + 1, ppLayoutTitleOnly)
' update the title
With pptSld.Shapes.Placeholders
If .Count > 0 Then
With .Item(1)
If .PlaceholderFormat.Type = ppPlaceholderTitle Then
.TextFrame.TextRange = ws.Name
End If
End With
End If
End With
' copy/paste over the shapes
For Each shp In ws.Shapes
shp.Copy
pptSld.Shapes.Paste
' to do - scale & position shape here
Next shp

'copy paste ranges?

Next ws

' to do - save here

Set pptSld = Nothing
Set pptPres = Nothing
Set appPPT = Nothing[/VBA]