您的位置:首页 > 其它

11 从Excel 新建一个pdi文件

2006-05-29 15:25 357 查看
我们要做的往往是在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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: