LOTUSSCRIPT /COM/OLE のクラス

例: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

関連項目