Examples: FitToWindow

This example sets the properties of the first embedded object on the currently selected document in the current view to FitToWindow, which means that when the object is activated (when the document is put in edit mode), the first embedded object fills the entire window.

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim obj As Variant	
  Set db = session.CurrentDatabase
  Set dc = db.UnprocessedDocuments
  Set doc = dc.GetFirstDocument
  obj = doc.EmbeddedObjects
  obj(0).FitToWindow = True	 
  Call doc.Save(True, True, True)
End Sub