Save method example

Private Sub SaveExample()

     ' This example saves the drawing.

     Application.ActiveDocument.Save

End Sub