You can. I've assumed an automated process, so this code goes through each shape in turn. You can test the shape to find it's type and decide whether you want to copy/paste it or not.
To do it all in one go, you could build a list of each shape you want, group them and copy/paste the group - although you can add things to the selection object easily enough[VBA]' copy/paste over the shapes
For Each shp In ws.Shapes
If shp.Type = msoChart Then
'add charts only to the selection
shp.Select False
End If
Selection.Copy
pptSld.Shapes.Paste
Next shp[/VBA]