Many a times you just want to create a simple presentation with 5-6 slides, with title and bullet points on each slide. The below code generates a new presentation with six slides,
each one containing a title and a bulleted list. The picture below shows the final result.
If you want to learn more about how to insert a VBA code into PowerPoint and how to assign it to a shape, you can read through this blog .
Sub ddd6SlideswithBulletPoints()
Dim Prest As Presentation, sld As Slide, i%, j%
Set Prest = Presentations.Add(msoTrue)
j = 1
For i = 1 To 6
Set sld = Prest.Slides.Add(Index:=Prest.Slides.Count + 1, Layout:=ppLayoutText)
sld.Shapes(1).TextFrame.TextRange = "Title of Slide " & i
sld.Shapes(2).TextFrame.TextRange = "Line " & CStr(j) & vbNewLine & _
"Line " & CStr(j + 1) & vbNewLine & "Line " & CStr(j + 2) & vbNewLine
j = j + 3
Next
End Sub
Output :
