This is the code I am using to make the powerpoint and create a slide:
        Dim db As Database, rs As Recordset
        Dim ppObj As PowerPoint.Application
        Dim ppPres As Powerpoint.Presentation
        Dim pptSlide As Slide
        Dim pptLayout As CustomLayout


        db = CurrentDb
        rs = db.OpenRecordset("*******", dbOpenDynaset)


        ppObj = New PowerPoint.Application
        ppPres = ppObj.Presentations.Add
        With ppPres
            .PageSetup.SlideHeight = 540
            .PageSetup.SlideWidth = 720
            While Not rs.EOF
                With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutLargeObject)
                    .SlideShowTransition.Hidden = msoTrue
                    .FollowMasterBackground = False
                    .Background.Fill.Solid()
                    .Background.Fill.ForeColor.RGB = RGB(0, 0, 0)
                    With .Shapes(1).TextFrame.TextRange
                        .Text = "*******"
                        .Characters.Font.Color.RGB = RGB(255, 255, 255)
                        .Characters.Font.Size = 36
                        .ParagraphFormat.Bullet = False
                        .ParagraphFormat.Alignment = ppAlignCenter
                    End With
                End With
            End While
        End With
I'm hoping to include the procedure in Access as the presentations are made each time and not saved and all the code is in my Access database. I want to add a button that will set up custom slide shows once the user has made some changes. At the moment I am making the custom slide shows through the VBA in Access and having to edit them manually when slides are added to the presentation by the user.