I had set out on a project to export information in my database to a PowerPoint to save time and to ensure uniformity. I only found bits and pieces of code but nothing that was complete. Some said that it was not able to be done.

I am a hack at best, and I know that a true VBA coder could do a much better job. If someone wants to clean it up and repost something better Thank You!
So below is my completed code to export to a PowerPoint from Access.
Create a blank PowerPoint templet
*Access uses the Item number of the items in the PowerPoint to insert the information from the fields in the table.

I used the rectangle shape as my insert points
Draw your rectangle set it to No fill and Your option as to a boarder.
Set the Text Properties that you want to have when the text is inserted.
You can also set the Text properties of the box to resize the text if it exceeds the size of the box.
Use the Ctrl F10 to open the item properties on the PowerPoint
You can rename the Shape and keep track of the Item # i.e. Item 1, Item 2........ This will be extremely helpful when you start adding information form the fields.

In my quest I also found code to Create a new blank PowerPoint, Add Slides, Delete Slides, format Text. I have left the code in the below but have comented it out because I did not need it for this porject.

I hope this will help others to resolve issue that took me a while to achive.

Export Multiple slides to PPT
Code:
Private Sub ExportToPPT_Click()
Dim NewPPTApp As PowerPoint.Application
Dim ExtPPT As PowerPoint.Application
'Dim NewPPT As PowerPoint.Document
Dim SlideNo As Integer
Dim RecordCount As Integer
Dim RecordNum As Integer
Dim objPresentation As Presentation
Dim objNewpresentation As Presentation
Dim objSlide As Slide
Dim objShape As Shape
Dim objTextBox As PowerPoint.Shape
Dim CCIRrs As DAO.Recordset
Dim Today As Date
Dim MinSec As Date
Set CCIRrs = CurrentDb.OpenRecordset("SELECT * FROM YOUR TABLE")
 
‘Sets the date and time
Today = Date
MinSec = Now()
‘ Used the MSGBOX to test my results
‘MsgBox Today
 
 
 
Set ExtPPT = CreateObject("PowerPoint.Application")
 
ExtPPT.Visible = True
 
' Open a Powerpoint templet
ExtPPT.Presentations.Open ("Your directory\Your PowerPoint Templet file name")
 
Set objPresentation = ExtPPT.ActivePresentation
 
' Get number of records
RecordCount = DCount("*", "YOUR TABLE")
 
' Creates Duplicate a slides in the PowerPoint to match the number of records in the table
Do Until RecordCount = 1
objPresentation.Slides(1).Duplicate
RecordCount = RecordCount - 1
Loop
 
' Set slide number
SlideNo = 1
 
‘ Loops through the table and exports to the slides on the PowerPoint
 If Not CCIRrs.EOF Then
'Points to the first slide in the presentation
CCIRrs.MoveFirst
Do Until CCIRrs.EOF = True
 
Set objSlide = objPresentation.Slides.Item(SlideNo)
 
' Insert text into existing text boxes on the PPTX
objSlide.Shapes.Item(1).TextFrame.TextRange.Text = Nz(CCIRrs!CCIRTITLE, "")
objSlide.Shapes.Item(2).TextFrame.TextRange.Text = Nz(CCIRrs!LINE1, "")
 
'PowerPoint does not have conditional formatting this Set color based on input
If CCIRrs! YOUR FIELD IN THE TABLE = "MONITORING" Then
objSlide.Shapes.Item(3).TextFrame.TextRange.Text = Nz(YOUR FIELD IN THE TABLE, "")
objSlide.Shapes.Item(3).TextFrame.TextRange.Font.Color = RGB(255, 128, 0)
ElseIf CCIRrs! YOUR FIELD IN THE TABLE = "TROUBLESHOOTING" Then
objSlide.Shapes.Item(3).TextFrame.TextRange.Text = Nz(YOUR FIELD IN THE TABLE, "")
objSlide.Shapes.Item(3).TextFrame.TextRange.Font.Color = RGB(255, 0, 0)
ElseIf CCIRrs! YOUR FIELD IN THE TABLE = "RESTORED" Then
objSlide.Shapes.Item(3).TextFrame.TextRange.Text = Nz(YOUR FIELD IN THE TABLE, "")
objSlide.Shapes.Item(3).TextFrame.TextRange.Font.Color = RGB(0, 128, 0)
End If
 
objSlide.Shapes.Item(6).TextFrame.TextRange.Text = Nz(CCIRrs! YOUR FIELD IN THE TABLE, "")
objSlide.Shapes.Item(8).TextFrame.TextRange.Text = Nz(CCIRrs! YOUR FIELD IN THE TABLE, "")
objSlide.Shapes.Item(10).TextFrame.TextRange.Text = Nz(CCIRrs! YOUR FIELD IN THE TABLE, "")
'objSlide.Shapes.Item(4).TextFrame.TextRange.Text = Nz(CCIRrs! YOUR FIELD IN THE TABLE, "")
                'objSlide.Shapes.Item(12).TextFrame.TextRange.Font.Size = 16
                 'objSlide.Shapes.Item(12).TextFrame.TextRange.Font.Bold = msoTrue
                'objSlide.Shapes.Item(12).TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
                 'objSlide.Shapes.Item(12).TextFrame.TextRange.Font.Underline = msoFalse
                'objSlide.Shapes.Item(12).TextFrame.TextRange.Font.Color = RGB(0, 0, 0)
'objSlide.Shapes.Item(13).TextFrame.TextRange.Text = "Technical Impact: " & Nz(YOUR FIELD IN THE TABLE, "")
‘Moves to next slide in the PowerPoint
SlideNo = SlideNo + 1
‘Moves to next record in the table
CCIRrs.MoveNext
Loop
End If
 
Set CCIRrs = Nothing
 
 
' Deletes a slide from the presentation
'objPresentation.Slides.Item(3).Delete
 
'Sets focus to slide 2
'Set objSlide = objPresentation.Slides.Item(2)
 
'Adds a TextBox
'Set objTextBox = objSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=10, Top:=200, Width:=100, Height:=50)
 
'Adds Text to the TextBox
'objSlide.Shapes.Item(1).TextFrame.TextRange.Text = Nz(Me! YOUR FIELD IN THE TABLE, "")
    'objSlide.Shapes.Item(1).TextFrame.TextRange.Font.Size = 16
    'objSlide.Shapes.Item(1).TextFrame.TextRange.Font.Color = RGB(0, 0, 0)
 
' Add a blank slide to the presentation
'Call objPresentation.Slides.Add(3, PpSlideLayout.ppLayoutBlank)
 
'Save the Templet with a new name and todays date to the directory you select
objPresentation.SaveAs ("YOUR DIRECTORY\" & "ADDED TEXT " & " - " & Format(Today, "dd,mmm,yy") & ".pptx")
 
 
' Open up a new blank instance of Powerpoint.
                 'Set NewPPTApp = New PowerPoint.Application
                  'Set pptPres = NewPPTApp.Presentations.Add
                 'Set NewobjPresentation = NewPPTApp.ActivePresentation
 
' Adds a slide to the new PowerPoint
                'Call NewobjPresentation.Slides.Add(1, PpSlideLayout.ppLayoutBlank)
 
' Adds a Text box to the slide
                'Set objSlide = NewobjPresentation.Slides.Item(1)
                 'Set objTextBox = objSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=100, Top:=200, Width:=200, Height:=50)
 
' Adds text to the textbox
                 'objSlide.Shapes.Item(1).TextFrame.TextRange.Text = Nz(Me!YOUR FIELD IN THE TABLE, "")
 
End Sub