搬家第七天-132.Wincc V7.3 OWC Chart图表控件初步使用1-单个变量绘制图表
前面的博客描述了MSChart图表绘制曲线的基本方法,微软还有一个Office Chart控件,也可以绘制统计图表,这个控件和前面介绍过的OWC Sheet表格控件是OWC套件的组成部分。从本文开始,将逐步记录如何使用这个控件绘制统计图表,脚本还是使用vbs。
在画面上放置一个Microsoft Office Chart控件,由于我的计算机上安装的office版本是2013,这个控件的相应版本是11.0,如果计算机上的office是其他版本,这个控件的版本也相应的不同,但是基本的使用方法,使用的脚本语句是一样的。在画面上再放置一个按钮,用于生成曲线。本文使用一个数组,事先定义好数组数值,然后绘制曲线。在按钮的鼠标点击事件中添加以下vbs脚本:
Sub OnClick(ByVal Item)
Dim Chart,cht,c,cst,xValue(20),yValue(20),i
Set Chart=ScreenItems("Chart")
Set c=Chart.constants
Chart.Clear '先清空
Set cht=Chart.Charts.Add
Chart.HasChartSpaceTitle=True
Set cst=Chart.ChartSpaceTitle '定义统计图表标题
'定义横纵坐标内容数组
For i=1 To 20,这里按照等比例函数,定义20个数据点,横坐标标签就是数字
xValue(i)=i
yValue(i)=i*10
Next
'初始化图表内容
With Cht
.type=6
.SeriesCollection.Add
'坐标轴范围
With .Axes
.Item(1).Scaling.Minimum=1
.Item(1).Scaling.Maximum=20
.Item(1).HasTitle=True
.Item(1).Title.Caption ="时间"
.Item(0).Scaling.Minimum=0
.Item(0).Scaling.Maximum=250
.Item(0).HasTitle=True
.Item(0).Title.Caption ="流量"
'有主网格线
.Item(0).HasMajorGridlines=True
.Item(0).HasTickLabels=True
.Item(0).HasAutoMajorUnit=True
End With
.HasLegend =True
End With
'图标标题定义
With cst
.Caption="这是一张图表"
.Font.Color =vbBlue
.Font.Name="微软雅黑"
.Font.size=20
End With
'添加数据
cht.SetData c.chDimCategories,c.chDataLiteral,xValue
cht.SeriesCollection.item(0).SetData c.chDimValues,c.chDataLiteral,yValue
End Sub
保存运行,可以看到曲线效果如下:
本文没有调整颜色等个性化元素,重点是介绍去先生成方法,如果想生成其他形式的图表,只需要.type=6 修改成修改成其他数值,比如.type=1,就是棒图,如下所示:
其他形式的图表,暂时不做介绍,可以自己尝试修改.type数值。