есть скрипт для создания любого пера:
Option Explicit
Dim Values(1 To 480)
Dim TDates(1 To 480)
Dim MSecs(1 To 480)
Dim Qual(1 To 480)
Dim I As Long
Dim bmyTrend As Boolean
Dim strOneName As String
Dim PenValues As Variant
Dim PenTDates As Variant
Dim PenMSecs As Variant
Dim PenQuality As Variant
Public Sub qwe()
Randomize
strOneName = "NewPen"
TWXViewer1.AddCustomPen (strOneName)
Dim mypen As Object
Set mypen = TWXViewer1.GetPen(strOneName, "custom")
mypen.PenVisible = True
mypen.PenColor = 5
mypen.PenWidth = 1
Set mypen = Nothing
End Sub
Public Sub asd()
For I = UBound(Values) To LBound(Values) + 1 Step -1
Values(I) = Values(I - 1)
TDates(I) = TDates(I - 1)
MSecs(I) = MSecs(I - 1)
Qual(I) = Qual(I - 1)
Next I
Values(LBound(Values)) = 100.5 * Rnd
TDates(LBound(Values)) = Now
MSecs(LBound(Values)) = 0
Qual(LBound(Values)) = 192
PenValues = Values
PenTDates = TDates
PenMSecs = MSecs
PenQuality = Qual
bmyTrend = TWXViewer1.SetPenValues(strOneName, PenValues, PenTDates, _
PenMSecs, PenQuality)
End Sub
в ней как бы ключевыми являются
Values(LBound(Values)) = 100.5 * Rnd
TDates(LBound(Values)) = Now
А как можно таблицу добавить???