Thanks Ken Puls,


I used your code and I change it to pick up group objects. But its not really perfect. The first slide is transparent and can it be fit on the total slide? right now some of the charts is going over the slide.


 
Public Sub TransferToPPT()
    Dim objSheet    As Worksheet
    Dim pptApp      As Object
    Dim pptPre      As Object
    Dim pptSld      As Object
    Dim Ch          As Chart
    Dim Wkb         As Workbook
    
   
     'Create a new Powerpoint session
    Set pptApp = CreateObject("PowerPoint.Application")
    Set pptPre = pptApp.Presentations.Add
     
     'Loop through each worksheet
    For Each objSheet In ActiveWorkbook.Worksheets
         'Create new slide for the data
        Set pptSld = pptPre.Slides.Add(pptPre.Slides.Count + 1, 12) 'ppLayoutBlank = 12
        objSheet.GroupObjects.Copy
        pptSld.Shapes.Paste
    
    Next objSheet
     
     'Activate PowerPoint application
    pptApp.Visible = True
    pptApp.Activate
End Sub