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.