OLEParameter
From Xojo Documentation
Module
Use to pass an OLE parameter.
| Properties | |||
|
| Methods | |||
|
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.
Var word As New WordApplication
Var doc As WordDocument
Var param As New OLEParameter
Var 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
Var doc As WordDocument
Var param As New OLEParameter
Var 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.