WebBrowserControl.Object プロパティ (Access)
コントロール内のリンクされた OLE オブジェクトまたは埋め込み OLE オブジェクトに関連付けられている ActiveX オブジェクトへの参照を返すには、Visual Basic の Object プロパティを使用します。 この参照を使用すると、プロパティにアクセスしたり、OLE オブジェクトのメソッドを呼び出したりできます。 読み取り専用 オブジェクト 。
構文
式。オブジェクト
式WebBrowserControl オブジェクトを表す変数。
注釈
Object プロパティは、ActiveX オブジェクトへの参照を返します。 Set ステートメントを使用して、この ActiveX オブジェクトをオブジェクト変数に割り当てます。 返されるオブジェクト参照の種類は、その OLE オブジェクトを作成したアプリケーションに応じて異なります。
Access のフォームに OLE オブジェクトを埋め込む、またはリンクするときは、オブジェクトの種類とコンテナー コントロールの動作を確認するプロパティを設定できます。 ただし、オートメーションの実行中と同じように OLE オブジェクトのプロパティを直接設定、取得したり、メソッドを適用したりすることはできません。
Object プロパティは、リンクされた、または埋め込まれた OLE オブジェクトを表すオートメーション オブジェクトへの参照を返します。 この参照を使用すると、プロパティを設定または参照するかメソッドを適用して、OLE オブジェクトを変更できます。 たとえば、Microsoft Excel はオートメーションをサポートする COM コンポーネントです。 Access フォームに Excel ワークシートを埋め込んだ場合は、 Object プロパティを使用して、そのワークシートに関連付けられている Worksheet オブジェクトへの参照を設定できます。 その後、その Worksheet オブジェクトのすべてのプロパティとメソッドを使用できるようになります。
ActiveX オブジェクトがサポートするプロパティとメソッドの詳細については、OLE オブジェクトの作成に使用されたアプリケーションのドキュメントを参照してください。
例
次の例では、OLE1 という名前のバインドされていないオブジェクト フレームの Object プロパティを使用します。 顧客の名前と住所の情報は、フォーム文字として書式設定された埋め込み Microsoft Word 文書に挿入され、名前と住所情報のプレースホルダーと、レターの本文に定型テキストが挿入されます。 プロシージャは、各レコードのプレースホルダー情報を置き換え、フォーム文字を出力します。 印刷されたフォーム文字のコピーは保存されません。
Sub PrintFormLetter_Click()
Dim objWord As Object
Dim strCustomer As String, strAddress As String
Dim strCity As String, strRegion As String
' Assign object property of control to variable.
Set objWord = Me!OLE1.Object.Application.Wordbasic
' Assign customer address to variables.
strCustomer = Me!CompanyName
strAddress = Me!Address
strCity = Me!City & ", "
If Not IsNull(Me!Region) Then
strRegion = Me!Region
Else
strRegion = Me!Country
End If
' Activate ActiveX control.
Me!OLE1.Action = acOLEActivate
With objWord
.StartOfDocument
' Go to first placeholder.
.LineDown 2
' Highlight placeholder text.
.EndOfLine 1
' Insert customer name.
.Insert strCustomer
' Go to next placeholder.
.LineDown
.StartOfLine
' Highlight placeholder text.
.EndOfLine 1
' Insert address.
.Insert strAddress
' Go to last placeholder.
.LineDown
.StartOfLine
' Highlight placeholder text.
.EndOfLine 1
' Insert City and Region.
.Insert strCity & strRegion
.FilePrint
.FileClose
End With
Set objWord = Nothing
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。