Class Property [Access 2003 VBA Language Reference]
You can use the Class property to specify or determine the class name of an embedded OLE object. Read/write String.
expression Required. An expression that returns one of the objects in the Applies To list.
The Class property setting is a string expression supplied by you or Microsoft Access when you create or paste an OLE object.
A class name defines the type of OLE object. For example, Microsoft Excel supports several types of OLE objects, including worksheets and charts. Their class names are "Excel.Sheet" and "Excel.Chart" respectively. When you create an OLE object in Design view by clicking Paste Special on the Edit menu or Object on the Insert menu, Microsoft Access enters the class name of the new object in the property sheet.
Note To determine the class name of an OLE object, see the documentation for the application supplying the object.
The Class property setting is updated when you copy an object from the Clipboard. For example, if you paste a Microsoft Excel chart from the Clipboard into an OLE object that previously contained a Microsoft Excel worksheet, the Class property setting changes from "Excel.Sheet" to "Excel.Chart". You can paste an object from the Clipboard by using Visual Basic to set the control's Action property to acOLEPaste or acOLEPasteSpecialDlg.
Note The OLEClass property and the Class property are similar but not identical. The OLEClass property setting is a general description of the OLE object whereas the Class property setting is the name used to refer to the OLE object in Visual Basic. Examples of OLEClass property settings are Microsoft Excel Chart, Microsoft Word Document, and Paintbrush Picture.
The following example creates a linked OLE object using an unbound object frame named
OLE1 and sizes the control to display the object's entire contents when the user clicks a command button.
Sub Command1_Click OLE1.Class = "Excel.Sheet" ' Set class name. ' Specify type of object. OLE1.OLETypeAllowed = acOLELinked ' Specify source file. OLE1.SourceDoc = "C:\Excel\Oletext.xls" ' Specify data to create link to. OLE1.SourceItem = "R1C1:R5C5" ' Create linked object. OLE1.Action = acOLECreateLink ' Adjust control size. OLE1.SizeMode = acOLESizeZoom End Sub