JAVA/CORBA クラス
例:activate メソッド
1 次のスクリプトは、文書の Body アイテムに新規オブジェクトを埋め込み、そのオブジェクトをアクティブにします。
Dim session As New session
Dim doc As Document
Dim rtitem As RichTextItem
Dim object As EmbeddedObject
Dim handle As Variant
Set doc = New Document( session.CurrentDatabase )
Set rtitem = New RichTextItem( 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"
Else
doc.Subject = "This object has an OLE automation interface"
End If
Call doc.Save( true, true )
2 次のスクリプトは、リッチテキストアイテム内に新規のワークシートオブジェクトを埋め込んで、アクティブにし、このオブジェクトのハンドルを使用して、ワークシート内のセルの値を設定します。
Dim rtitem as RichTextItem
Dim object as EmbeddedObject
Dim handle as Variant
'...set value of rtitem...
Set object = rtitem.EmbedObject( EMBED_OBJECT, _
"Microsoft Excel Worksheet", "", "Report" )
Set handle = object.Activate ( false )
handle.Cells( 1,1 ).Value = 100
handle.Parent.Save
関連項目
activate メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
?
ヘルプの使い方
すべてのヘルプ項目
用語集