LOTUSSCRIPT /COM/OLE のクラス

例:FitBelowFields プロパティ
次の例では、現在のビューにある、現在選択している文書の最初の埋め込みオブジェクトのプロパティが FitBelowFields に設定されます。つまり、オブジェクトがアクティブにされると (文書が編集モードの場合)、最初の埋め込みオブジェクトがフォームの最初のレイアウトセクションの下に表示されます。

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).FitBelowFields = True
 Call doc.Save(True, True, True)
End Sub

関連項目