11 从Excel 新建一个pdi文件

我们要做的往往是在Excle获得一个点,之后生成一个新的pdi文件

并生成一个趋势图,添加一条趋势线。

这个东西有前途做成一个控件 呵呵

sub cmd_click ()
Set appX = GetObject(, "piprocessbook.application.2")

If appX Is Nothing Then
    Set appX = CreateObject("piprocessbook.application.2")
End If

Set disY = appX.Displays.Add("NewDisplay")

Workbooks(1).Sheets(1).Activate

tag1 = "\\localhost\" & ActiveCell.Value

Set tndZ = disY.Symbols.Add(pbSymbolTrend)

tndZ.Top = 15000
tndZ.Left = -15000
tndZ.Height = 200
tndZ.Width = 1000

tndZ.AddTrace (tag1)

end sub

posted on 2006-05-29 15:25  zljini  阅读(633)  评论(0编辑  收藏  举报