Use Access VBA to create an action button in Powerpoint??!

[fkneg1]

Hi,

I am using VBA in Access 2013 to make a PowerPoint presentation using data from the access database. Does anyone know if it is possible to use Access VBA to create a button in the presentation that runs a procedure itself? I'm not sure how to go about it if it is possible so any help would be appreciated! Thanks.

[John Wilson]

It would be possible but post the code you have to create the presentation and slide to contain the button. I am presuming the proc is in the PPT presentation?

[fkneg1]

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.

[John Wilson]

To the best of my knowledge the action button could ONLY run code in the PowerPoint presentation.

If it was me I think I would put all the code in a PPT AddIn with ribbon buttons to add the presentation from access and then another button to make the custom shows. Not a trivial task but I think more satisfatory.