搬家第26天-citectVBA编写脚本owcchart控件根据数组绘制一条曲线

前面的博客记录了mschart绘制曲线，今天练习使用owc chart绘制曲线，先从最简单的开始——绘制一条曲线，数据来源是数组，是简单的等比例数组。假设画面上添加了一个microsoft office chart 11.0控件，这个控件在office较早版本安装程序里面是有的，安装完之后在citect软件中可以在activex控件集中找到，属于owc控件组的一部分；后来微软抛弃了owc，需要使用的话，可以从网上下载安装。假设画面上owc chart控件的访问名是owcchart_AN4。在cicode编辑器下建立以下脚本

Sub owcChart1lineArray() 'owc chart绘制一条曲线

Dim cht As Object

Dim c As Object

Dim cst As Object 

Dim xValue(20),yValue(20),i

Set c=owcchart_AN4.constants

owcchart_AN4.Clear '先清空

Set cht=owcchart_AN4.Charts.Add

owcchart_AN4.HasChartSpaceTitle=True

Set cst=owcchart_AN4.ChartSpaceTitle '定义统计图表标题

'定义横纵坐标内容数组

For i=1 To 20'这里按照等比例函数，定义20个数据点，横坐标标签就是数字

 xValue(i)=i

 yValue(i)=i*10

Next

 

'初始化图表内容

Cht.Type=6

Cht.SeriesCollection.Add

'  坐标轴范围

 

cht.axes.Item(0).Scaling.Minimum=1

cht.axes.Item(0).Scaling.Maximum=20

cht.axes.Item(0).HasTitle=True

cht.axes.Item(0).Title.Caption ="横坐标标题"

cht.axes.Item(1).Scaling.Minimum=0

cht.axes.Item(1).Scaling.Maximum=250

cht.axes.Item(1).HasTitle=True

cht.axes.Item(1).Title.Caption ="纵坐标标题"

 

 

'有主网格线

cht.axes.Item(1).HasMajorGridlines=True

cht.axes.Item(1).HasTickLabels=True

cht.axes.Item(1).HasAutoMajorUnit=True

cht.HasLegend =True 

 

'图标标题定义

cst.Caption="这是一张图表"

cst.Font.Color =41 '蓝色

cst.Font.Name="微软雅黑"

cst.Font.size=20

 

 

'添加数据

 cht.SetData c.chDimCategories,c.chDataLiteral,xValue

 cht.SeriesCollection(0).SetData c.chDimValues,c.chDataLiteral,yValue

End Sub

 

画面上添加一个按钮调用这个脚本，保存编译运行，就能看到一下效果。