我们要做的往往是在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
