Activate OLE Object Example (VBA)

This example shows how to activate an OLE object on the active document.

'-------------------------------------

'

' Preconditions: Model document is open with a

'                Microsoft OLE object on it.

'

' Postconditions: Microsoft Excel starts up and

'                opens the worksheet.

'

'--------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim swSelMgr As SldWorks.SelectionMgr

Dim boolstatus As Boolean

Dim swOleObj As SldWorks.SwOLEObject

Dim xlObj As Object

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swModelDocExt = swModel.Extension

Set swSelMgr = swModel.SelectionManager

 

' Select the worksheet, an OLE object

boolstatus = swModelDocExt.SelectByID2("Worksheet", "OLEITEM", 0.3938441215324, 0.1174499135928, 0, False, 0, Nothing, 0)

Set swOleObj = swSelMgr.GetSelectedObject5(1)

 

' Start up Microsoft Excel and open the worksheet

Set xlObj = swOleObj.SetActive(True)

End Sub