tatus = SwOLEObject->ISetBoundaries ( Boundary)   

Property:

(double) Boundary

Array of doubles of these coordinates: 

Drawings: sheet coordinates

***********

question

(double) Boundary------------Array of doubles of these coordinates: 

**********

Error message

The BREF parameter type mismatch

*********

tmp = xx.ISetBoundaries(ppp)

Option Explicit

Sub main()

  Dim swApp As SldWorks.SldWorks

  Dim swModel As SldWorks.ModelDoc2

  Dim swModelDocExt As SldWorks.ModelDocExtension

  Dim oleobjoptions As Long

  Dim vOleObjs As Variant

  Dim xlObj As Variant

  Dim xx As SwOLEObject

  Dim txt As String

  Dim indxA As Integer

  Dim Description As String

  Set swApp = Application.SldWorks

  Set swModel = swApp.ActiveDoc

  Set swModelDocExt = swModel.Extension

  Dim pp, ppp(5) As Double

  vOleObjs = swModelDocExt.GetOLEObjects(oleobjoptions)

    Set xx = vOleObjs(0)

    pp = xx.Boundaries

    Debug.Print

    Dim tmp

     tmp = xx.ISetBoundaries(ppp)

End Sub

*********