Help for this page

Select Code to Download

Select or download this

Private Sub App_PresentationSave(ByVal Pres As Presentation)
    With Pres.PublishObjects(1)
...
        .Publish
    End With
End Sub