Public Sub AddPictures() Dim ppApp As PowerPoint.Application Set ppApp = New PowerPoint.Application Dim Pre As PowerPoint.Presentation Dim NewSld As PowerPoint.Slide Dim tShp As PowerPoint.Shape Dim pShp As PowerPoint.Shape Const PPT_NAME As String =…