ObjectFrame.Object 属性 (Access)

使用 Visual Basic 中的 Object 属性可返回对与控件中链接或嵌入的 OLE 对象关联的 ActiveX 对象的引用。 使用此引用，可以访问的属性，或者调用 OLE 对象的方法。 只读 对象 。

语法

表达式。对象

表达 一个代表 ObjectFrame 对象的变量。

备注

Object 属性返回对 ActiveX 对象的引用。 使用 Set 语句将此 ActiveX 对象分配给对象变量。 返回的对象引用的类型取决于创建 OLE 对象的应用程序。

当嵌入或链接 OLE 对象在 Microsoft Access 窗体中的时，可以设置属性，以确定对象的类型和容器控件的行为。 但是，您不能直接设置或读取 OLE 对象的属性或应用它的方法，您可以执行自动化时。

Object 属性返回代表链接或嵌入的 OLE 对象的自动化对象的引用。 使用此引用，可以通过设置或读取其属性或应用它的方法来更改 OLE 对象。 例如，Microsoft Excel 是支持自动化的 COM 组件。 如果已在 Access 窗体中嵌入 Excel 工作表，则可以使用 Object 属性设置对与该 工作表关联的 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。