OLEParameter

From Xojo Documentation

Module

Use to pass an OLE parameter.

Properties
PassByRef Position Type
Methods
Value ValueArray
ValueArray

Class Constants

Use the following class constants to set the value of the Type property.

Name
ParamTypeBoolean
ParamTypeChar
ParamTypeDouble
ParamTypeNull
ParamTypeSigned64Bit
ParamTypeSignedChar
ParamTypeSignedLong
ParamTypeSignedShort
ParamTypeSingle
ParamTypeString
ParamTypeUnsigned64Bit
ParamTypeUnsignedLong
ParamTypeUnsignedShort


Notes

This code launches Word and draws a curve in a new document.

Dim word As New WordApplication
Dim doc As WordDocument
Dim param As New OLEParameter
Dim pts(3, 1) As Variant
pts(0, 0) = 50
pts(0, 1) = 20
pts(1, 0) = 100
pts(1, 1) = 160
pts(2, 0) = 150
pts(2, 1) = 160
pts(3, 0) = 200
pts(3, 1) = 20

param.Type = OLEParameter.ParamTypeSingle
param.ValueArray = pts

doc = word.Documents.Add
doc.Shapes.AddCurve(param)
word.Visible = True

See Also

ExcelApplication, OLEContainer, OLEObject, PowerPointApplication, WordApplication classes; OLEException error.