Add Method (OLEObjects Collection) Example
This example creates a new Microsoft Word OLE object on Sheet1.
ActiveWorkbook.Worksheets("Sheet1").OLEObjects.Add _
ClassType:="Word.Document"
This example adds a command button to sheet one.
Worksheets(1).OLEObjects.Add ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=40, Top:=40, _
Width:=150, Height:=10