例: FitToWindow

次の例では、現在のビューにある、現在選択している文書の最初の埋め込みオブジェクトのプロパティが FitToWindow に設定されます。つまり、オブジェクトがアクティブにされると (文書が編集モードの場合)、最初の埋め込みオブジェクトがウィンドウ全体を占有します。

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