Get OLE Object Data Example (VBA)
This example shows how to get OLE object data from a model document.
'---------------------------------------------------------------------------
' Preconditions:
' 1. Open a model document.
' 2. Click Insert > Object.
' 3. Select Create New and Paint Shop Pro X Image.
' 4. Click OK.
' 5. Click OK in the Image dialog.
' 6. Close Corel Paint Shop Pro X.
' 7. Open an Immediate window.
'
' Postconditions: Inspect the Immediate window.
'--------------------------------------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swSelMgr As SldWorks.SelectionMgr
Dim swOleObj As SldWorks.SwOLEObject
Dim boolstatus As Boolean
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
Set swSelMgr = swModel.SelectionManager
boolstatus = swModelDocExt.SelectByID2("Image",
"OLEITEM", 0, 0, 0, False, 0, Nothing, 0)
Set swOleObj = swSelMgr.GetSelectedObject6(1,
0)
Debug.Print "OLE Object"
Debug.Print " Class ID: " & swOleObj.Clsid
Debug.Print " Is linked? " & swOleObj.IsLinked
Debug.Print " Filename: " & swOleObj.FileName
Debug.Print " Buffer size: " & swOleObj.BufferSize
Debug.Print " Viewing aspect (1=Content, 2=Thumbnail,
4=Icon, 8=DocPrint): " & swOleObj.Aspect
End Sub