2.6.1 Add


Description

Add a new column to column collection

Syntax

VB: Function Add([ Name As ByVal Object ] ) As Column
C++: Column Add(_variant_t Name )
C#: Column Add(var Name )

Return

Remark

Examples

VBA

Dim myobj As Origin.ApplicationSI

Dim mypage As Origin.Page

Dim myWks As Origin.Worksheet

Dim myCol As Origin.Column


'Open a new instance of the Origin application
Set myobj = GetObject("", "Origin.ApplicationSI")

'make the Origin Visible
myobj.Execute ("doc -mc 1")

myobj.NewProject


Set mypage = myobj.Pages(0)

'base on 0
Set myWks = mypage.Layers(0)

'start from 0
Set myCol = myWks.Columns.Add("Signal")
Dim myobj As Origin.ApplicationSI

Dim mypage As Origin.Page

Dim myWks As Origin.Worksheet

Dim myNote As Origin.Note

Dim strStorage As String

'Open a new instance of the Origin application
Set myobj = GetObject("", "Origin.ApplicationSI")

myobj.Execute ("doc -mc 1")
'base on 0

myobj.NewProject


myNote = myobj.Notes.Add

Version Information

8.0SR2

See Also