Configure ppsm to not turn on notifications whether to save changes or not

Question

I have a macro within a PowerPoint slideshow which upon activating it adds a random picture to the existing presentation. But when I want to close the program, It prompts if you want to save the changes or not. I want it to not show the change saving notification.

This is the sub I am using:

Sub RandomImage()

   Dim i As Long  
   Dim posLeft As Long
   For i = 1 To 2
     Randomize
     RanNum% = Int(58 * Rnd) + 1
     Path$ = ActivePresentation.Path
     FullFileName$ = Path$ + "/" + CStr(RanNum%) + ".png"
     posLeft = 50 + ((i - 1) * 400)
     Call ActivePresentation.Slides(1).Shapes.AddPicture(FileName:=FullFileName$, LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, Left:=posLeft, Top:=100, Width:=400)
  Next
End Sub