Returns the OLE Automation object associated with this OLE object. Read-only Object.
Example
This example inserts text at the beginning of an embedded Word document object on Sheet1. Note that the three statements in the With control structure are WordBasic statements.
Set wordObj = Worksheets("Sheet1").OLEObjects(1)
wordObj.Activate
With wordObj.Object.Application.WordBasic
.StartOfDocument
.Insert "This is the beginning"
.InsertPara
End With