Examples: Activate method

  1. This script embeds a new object in the Body item of a document, and activates the object.
    Dim session As New NotesSession
    Dim doc As NotesDocument
    Dim rtitem As NotesRichTextItem
    Dim object As NotesEmbeddedObject
    Dim handle As Variant
    Set doc = New NotesDocument( session.CurrentDatabase )
    Set rtitem = New NotesRichTextItem( doc, "Body" )
    Set object = rtitem.EmbedObject _
    ( EMBED_OBJECT, "Microsoft Excel Worksheet", "", _
    "Report" )
    Set handle = object.Activate( False )
    If ( handle Is Nothing ) Then
      doc.Subject = "This object has no OLE automation interface"
      doc.Subject = "This object has an OLE automation interface"
    End If
    Call doc.Save( True, True )
  2. This script embeds a new worksheet object in a rich text item, activates it, and uses its handle to set the value of a cell in the worksheet.
    Dim rtitem as NotesRichTextItem
    Dim object as NotesEmbeddedObject
    Dim handle as Variant
    '...set value of rtitem...
    Set object  = rtitem.EmbedObject( EMBED_OBJECT, _
    "Microsoft Excel Worksheet", "", "Report" )
    Set handle = object.Activate ( False )
    handle.Application.Cells( 1,1 ).Value = 100