前面的博客描述了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数值。