Cycle thru Worksheets, Copy Range from Sheet As Image, Create PPT, Paste each image to new ppt slide

[BrianExcel]

I have a Excel workbook that I am 99% complete on. The steps it performs are:

1. Opens PPT (successful)
2. Creates Presentation in Normal View (Successful)
3. Creates Slide (Successful)
4. Copies Range from Active (1st) Sheet (successful)
5. Pastes range from (1st) sheet to slide 1 (successful)
6. Cycles to 2nd worksheet (successful)
7. Creates second slide in PPT (successful)
8. Pastes NEW image of same range on new slide (unsuccessful)

Basically, it is just re-copying the range from sheet 1 instead of looking at sheets 2, 3, 4, etc. I cannot figure out what I am doing wrong. Any thoughts? here is the code.

Sub CommandButton3_Click()Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Dim PPPic As Variant
Dim wb As Workbook, ws As Worksheet




Set PPApp = CreateObject("Powerpoint.Application")
PPApp.Visible = True
Set PPPres = PPApp.Presentations.Add



For Each ws In ThisWorkbook.Worksheets
    PPApp.ActiveWindow.ViewType = ppViewNormal       'Choose view of power point you want (slide view, normal view, notes view, etc.)
    Set PPSlide = PPPres.Slides.Add(1, ppLayoutBlank)   'Add slide to ppt
            
    ActiveSheet.Range("B2:S34").Select
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture 'copy range as picture from worksheet
            
            'PPPres.Slides(j).Select
            Set PPPic = PPPres.Slides(1).Shapes.Paste

Next ws





' Quit PowerPoint
'PPApp.Quit


' Clean up
Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing


End Sub

Thanks!

 

[AlphaFrog]

Add this line...

[B]ws.select[/B]
    ActiveSheet.Range("B2:S34").Select
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture 'copy range as picture from worksheet

 

[BrianExcel]

One line.

One. ****. Line. LOL.

Thank you Alpha.

One last question - right now, since this is the first time it's working, I see it's actually inserting the last sheet first and the first sheet last in the ppt file, any way to reverse that order?