MSCHART的使用之vb中利用MSCHART控件画二维散点图

合集下载

VB环境下MSChart控件的应用与研究

某个油田的区块做横坐标，井口数做纵坐
标而形成的“井口数统计图”为例，如图
１所示。
图１井口数统计图
在此图中，由于区块过多，显示得不清楚，完全分不出哪个区块
对应的数值。解决这样的问
题，操作步骤为：
（１）将区块用编码表
示，如图２所示。
（２）用ＣｏｍｍａｎｄＢｕｔｔｏｎ
按钮，显示编码所表示的区
图２井口数统计数据编码图
ＩｆＮｏｔＩｓＮｕｌｌ（ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（１）．Ｖａｌｕｅ）Ｔｈｅｎ
ｊｓ＝ｊｓ＋ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（１）．Ｖａｌｕｅ
ＥｎｄＩｆ
ＭＲｅｃｏｒｄｓｅｔ１．Ｃｌｏｓｅ
ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ．ＭｏｖｅＮｅｘｔ
Ｗｅｎｄ
ＥｎｄＷｉｔｈ
（２）区块大于１０个时的具体代码：
．ＲｏｗＬａｂｅｌ＝＂＂
Ｅｌｓｅ
．ＲｏｗＬａｂｅｌ＝ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ！ｑｋ
＇行显示的内容（油田区块）
ＥｎｄＩｆ
ＩｆＮｏｔＩｓＮｕｌｌ（ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（０）．Ｖａｌｕｅ）Ｔｈｅｎ
ｋ＝ｋ＋ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（０）．Ｖａｌｕｅ
ＥｎｄＩｆ
网络纵横
２００８年第９期 146
ＶＢ环境下ＭＳＣｈａｒｔ控件的应用与研究
李旭东
（山东胜利职业学院）
摘要在ＶｉｓｕａｌＢａｓｉｃ６．０环境下，ＭＳＣｈａｒｔ控件还有些不能实现的功能，如横坐标的内容显示不清楚，ＭＳＣｈａｒｔ控件的宽度如何自动调整以及调整后如何显示看不见的部分。本文主要针对以上问题，就如何改进及应用ＭＳＣｈａｒｔ控件进行了探讨。

VB6.0中通过MSChart控件调用数据库

《VB6.0中通过MSChart控件调用数据库》VB6.0中的MSChart控件是一个功能强大的高级图表工具，拥有丰富的图表绘制功能，可显示二维和三维的棒图、区域图、线形图、饼图等多种常用图表。

近日我为了在双击图表的某个区域时将与该区域相对应的数据库的内容在DataGrid控件上显示出来，遇到了许多困难，最后用一个自定义的变量SelectSeries解决了问题，具体方法如下：设数据库名称为“学生信息”，有一Access表“学生成绩”，其内容为一个班学生的考试成绩，包括学号、姓名、成绩3个字段，成绩字段格式是字符型，值为“优”、“良”、“中”、“差”中的一个。

窗体Form1包括一个MSChart控件McScore，类型为二维饼图，用于显示每种成绩的学生数；一个ADO控件AdScore用于连接数据库；一个DataGrid控件DgScore用于以表格形式显示数据库内容。

工作过程为：双击饼图的某个区域，则DgScore显示相应成绩的学生名单。

代码如下：Option ExplicitDim SelectedSeries as Integer ′自定义变量Dim Rs() as String ′提取记录集用的字符串数组Private Sub Form_Load()′设定DataGrid控件的数据源DgScore.DataSource=″AdScore″′设定ADO控件的连接字串和初始的记录源，即显示内容AdScore.ConnectString=″Provider=Microsoft.OLEDB.3.51;Persist_Security Info=False;Data Source=学生信息″AdScore.RecordSource=″selet ＊from学生成绩order by成绩″AdScore.Refresh′预设好提取记录用的SQL语句Rs(1)=″select＊from学生成绩where成绩=″＋Chr(34)＋″优″＋_Chr(34)＋″order by成绩″Rs(2)=″select ＊from学生成绩where成绩=″＋Chr(34)＋″良″＋_Chr(34)＋″order by成绩″Rs(3)=″select ＊from学生成绩where成绩=″＋Chr(34)＋″中″＋_Chr(34)＋″order by 成绩″Rs(4)=″select ＊from学生成绩where成绩=″＋Chr(34)＋″差″_Chr(34)＋″order by成绩″End SubPrivate Sub McScore_SeriesSelected(Series as Integer,MouseFlags as _Integer,Cancel as Integer)SelectedSeries=SeriesEnd SubPrivate Sub McScore_PointSelected(Series as Integer,DataPoint as_Integer,MouseFlags as Integer,Cancel as Integer)SelectedSeries=SeriesEnd SubPrivate Sub McScore_Db1Click()′改变ADO控件的记录源并刷新Adoc1.RecordSource=Rs(SeletedSeries) Adoc1.RefreshEnd Sub(湖南高文杰)。

关于vb中MSCHART控件画二维线图

关于vb中MSCHART控件画二维线图问题如下：使用MSCHART控件做出类似下面这个图形的图来。

经过一些摸索给出如下答案：Private Sub Command1_Click()Dim MyData(0 To 4, 0 To 15) As StringDim iRow As Integer'损失时间H---第1行'次品数PCS---第2行'调机/转型号H---第3行' 报废KG---第4行MyData(1, 0) = "损失时间"MyData(2, 0) = "次品数"MyData(3, 0) = "调机/转型号"MyData(4, 0) = "报废"For i = 1 To 15MyData(0, i) = i & Space(1) '注意一定要后面的space(1)，这样做的目的是为了自动显示成标签(字符串类型)Next' 第1行数据初始化(注意，为0的数据不要赋值)iRow = 1MyData(iRow, 1) = 189: MyData(iRow, 2) = 280: MyData(iRow, 3) = 233MyData(iRow, 6) = 338: MyData(iRow, 7) = 356'第2行数据初始化iRow = 2MyData(iRow, 1) = 227: MyData(iRow, 2) = 190: MyData(iRow, 3) = 172MyData(iRow, 6) = 189: MyData(iRow, 7) = 232'第3行数据初始化iRow = 3MyData(iRow, 1) = 72: MyData(iRow, 2) = 145: MyData(iRow, 3) = 120MyData(iRow, 6) = 140: MyData(iRow, 7) = 205'第4行数据初始化iRow = 4MyData(iRow, 1) = 36.01: MyData(iRow, 2) = 37.05: MyData(iRow, 3) = 39.31MyData(iRow, 6) = 32.99: MyData(iRow, 7) = 37.98With MSChart1'------------------图线标记外观设置开始----------------------------------------------------------------For iRow = 1 To 4 '本循环设置4条线标记的大小，线的粗细.Plot.SeriesCollection(iRow).SeriesMarker.Auto = FalseWith MSChart1.Plot.SeriesCollection(iRow).DataPoints.Item(-1).Marker.Visible = True: .Pen.Width = 10: .Size = 150End WithNext' 下面的语句单独设置每条线标记的图案类型'第一行标记iRow = 1.Plot.SeriesCollection(iRow).DataPoints.Item(-1).Marker.Style = VtMarkerStyleFilledCircle '圆形'第二行标记iRow = 2.Plot.SeriesCollection(iRow).DataPoints.Item(-1).Marker.Style = VtMarkerStyleFilledSquare '方形'第三行标记iRow = 3.Plot.SeriesCollection(iRow).DataPoints.Item(-1).Marker.Style = VtMarkerStyleFilledUpTriangle '三角形'第四行标记iRow = 4.Plot.SeriesCollection(iRow).DataPoints.Item(-1).Marker.Style = VtMarkerStyleStar '*形'------------------图线标记外观设置结束----------------------------------------------------------------'------------------ 图线外观设置开始----------------------------------------------------------------For iRow = 1 To 4 '本循环设置4条线的粗细及数据值的显示位置.Plot.SeriesCollection(iRow).Pen.Width = 10.Plot.SeriesCollection(iRow).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeRight.Plot.SeriesCollection(iRow).DataPoints(-1).DataPointLabel.VtFont.Size = 8'原图中不显示第一条数据线的数值If iRow = 1 Then .Plot.SeriesCollection(iRow).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeNoneNext'------------------图线外观设置结束----------------------------------------------------------------'------------------ 坐标轴外观设置开始----------------------------------------------------------------'设置X 轴外观.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False.Plot.Axis(VtChAxisIdX).AxisGrid.MinorPen.Style = VtPenStyleNull.Plot.Axis(VtChAxisIdX).AxisGrid.MajorPen.Style = VtPenStyleNull'设置第一Y轴外观.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 380.Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 19.Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 0.Plot.Axis(VtChAxisIdY).AxisGrid.MinorPen.Style = VtPenStyleNull.Plot.Axis(VtChAxisIdY).AxisGrid.MajorPen.Style = VtPenStyleNull'设置第二Y轴外观.Plot.Axis(VtChAxisIdY2).AxisScale.Hide = True.Plot.Axis(VtChAxisIdY2).ValueScale.Auto = False.Plot.Axis(VtChAxisIdY2).AxisGrid.MinorPen.Style = VtPenStyleNull.Plot.Axis(VtChAxisIdY2).AxisGrid.MajorPen.Style = VtPenStyleNull'------------------坐标轴外观设置结束----------------------------------------------------------------'------------------ 图例外观设置开始----------------------------------------------------------------.ShowLegend = True.Legend.Backdrop.Frame.Style = VtFrameStyleSingleLine.Legend.Backdrop.Frame.Width = 10.Legend.Location.LocationType = VtChLocationTypeTopRight'------------------ 图例外观设置结束----------------------------------------------------------------'------------------ 图形区设置开始----------------------------------------------------------------.Plot.AutoLayout = False.Plot.LocationRect.Min.Set 0, 0.Plot.LocationRect.Max.Set .Width, .Height - 850 '减去图例的高度'------------------图形区设置结束----------------------------------------------------------------.Plot.DataSeriesInRow = True '设置图形按行读取数据.chartType = VtChChartType2dLine '设置图表类型.ChartData = MyDataEnd WithEnd SubMSCHART的使用之vb中利用MSCHART控件画二维散点图2008年03月31日星期一 16:12近日在学习傅立叶分解时,写了个小程序来验证自己对傅立叶分解的一些理解,为了更生动直观就需要画一些图形,以前总是用picture控件来实现,后来在网上看到VB中有个MSCHART控件可以来画很多类型的图形,就学习了一下,由于是第一次搞,所以按习惯在网上搜索相关帖子,发现没有一个很完整的关于MSCHART中二维散点图的例子,很是郁闷,经过我自己几天的努力,终于解决了这个问题.现以一个具体的例子来说明,希望我的这个例子能对大家有所帮助.这个例子是一个论坛上一位网友提出来的,但是这个问题一直到现在还没有人回答,我权当在这里回答一下吧.问题如下:根据此我写了下面的代码Private Sub Form_Load()'对于二维散点图来说，第一列代表了X轴坐标，第二列代表了Y轴坐标'因此在定义二维数据时，第二维定义为0到1，第一维代表了第几点数据，可根据数据点数变化'下面以数据点数有21点为列子Dim MyData(20, 1) As Double'-----x轴坐标值-----Y轴坐标值----------MyData(0, 0) = 0: MyData(0, 1) = 180 '本句代表了：第一点数据的X轴坐标为0，Y轴坐标为180MyData(1, 0) = 6: MyData(1, 1) = 60MyData(2, 0) = 8: MyData(2, 1) = 60MyData(3, 0) = 11: MyData(3, 1) = 0MyData(4, 0) = 16: MyData(4, 1) = 0MyData(5, 0) = 19: MyData(5, 1) = 60MyData(6, 0) = 25.8: MyData(6, 1) = 60MyData(7, 0) = 28.8: MyData(7, 1) = 0MyData(8, 0) = 31.8: MyData(8, 1) = 60MyData(9, 0) = 40.3: MyData(9, 1) = 60MyData(10, 0) = 43.3: MyData(10, 1) = 0MyData(11, 0) = 93.3: MyData(11, 1) = 0MyData(12, 0) = 96.3: MyData(12, 1) = 60MyData(13, 0) = 99.3: MyData(13, 1) = 0MyData(14, 0) = 105.3: MyData(14, 1) = 0MyData(15, 0) = 135.3: MyData(15, 1) = 0MyData(16, 0) = 144.3: MyData(16, 1) = 180MyData(17, 0) = 148.8: MyData(17, 1) = 270MyData(18, 0) = 405.03: MyData(18, 1) = 270MyData(19, 0) = 409.53: MyData(19, 1) = 180MyData(20, 0) = 564.17: MyData(20, 1) = 180'波形图外观设置With MSChart1.TitleText = "速度 m/min"' '设置图线的外观.Plot.SeriesCollection(1).Pen.Width = 30.Plot.SeriesCollection(1).Pen.Style = VtPenStyleSolid' '设置XY轴.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False'// 设置最大值.Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 600.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 300'// 设置最小值.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0.Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0'//.Plot.Axis(VtChAxisIdX).ValueScale.MajorDivision = 6 'X轴主要网格数量 .Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 6 'Y轴主要网格数量 .Plot.Axis(VtChAxisIdX).ValueScale.MinorDivision = 0 'X轴次要网格数量 .Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 0 'Y轴次要网格数量 .Plot.Axis(VtChAxisIdX).AxisGrid.MajorPen.Style = VtPenStyleDotted.Plot.Axis(VtChAxisIdY).AxisGrid.MajorPen.Style = VtPenStyleDotted MSChart1.Plot.AutoLayout = FalseMSChart1.Plot.UniformAxis = FalseMSChart1.chartType = VtChChartType2dXY '设置图形为二维散点图MSChart1.ChartData = MyData '数据End WithEnd Sub运行后的效果图如下MSCHART的二维散点图对于实际工作是有很大用途的，例如数据采集中,实现时间变量的曲线等等.希望这个例子对大家有帮助。

MSChart控件教程

MSChart控件这些内容是在学习过程中进行的整理，由于感到书籍资料或软件帮助中有时让人很不容易理解，特制作这个教程，以方便其他朋友学习，从新学习此控件的人的角度来描述相应的属性，相信也能让跟我一样程度的人更容易理解，可能在学习的过程中对某些属性与方法有理解不正确，请各位指正。

附录：1、AllowDynamicRotation作用：返回或设置是否可旋转图表注：需要图表的ChartType是3d类型才可以，当AllowDynamicRotation=True时，在图表中可按住ctrl+鼠标左键旋转图表。

示例：下列代码在窗体加载时将MSChart1设置为3d柱形图，并允许按住ctrl+鼠标左键旋转。

（窗体上放一个MSChart控件）Private Sub Form_Load()With MSChart1.chartType = VtChChartType3dBar '类型为3d柱形图，类形常数详见附录.AllowDynamicRotation = True '允许旋转End WithEnd Sub下列代码将以对话框的形式返回上面示例的AllowDynamicRotation值：MsgBox MSChart1.AllowDynamicRotation2、ChartData注：书中及软件帮助文档中说到数组需要变体型数值，是指如果要将数组第一个元素作为标题，其他作为数据，那个这个数组既有字符又有数字，那么就需要一个变体形。

如果数组中并不包含标题（或是之后使用属性来赋于标题），那么数组是可以定义类形的，个人建议先给定数组类型，之后再使用属性来设置标题。

作用：设置：将一个数组的数据作表图表的显示数据返回：将图表数据赋给一个数组示例：将数组元素作为图表的显示数据制作一个1行6列的的图表（数组的维代表图表的行，每维的元素代表列）Private Sub Form_Load()Dim 一维数组(1 To 6)'为了表示得更清楚，我们采取逐个赋值的方法一维数组(1) = 1一维数组(2) = 2一维数组(3) = 3一维数组(4) = 4一维数组(5) = 5一维数组(6) = 6With MSChart1.chartType = VtChChartType2dBar '类型为3d柱形图.ChartData = 一维数组()End WithEnd Sub为了理解图表的行列与数组的维数的对应关系，再举例一个二维数组（图表对应就形成2行6列）Private Sub Form_Load()Dim 二维数组(1 To 2, 1 To 6)'为了表示得更清楚，我们采取逐个赋值的方法二维数组(1, 1) = 1二维数组(1, 2) = 2二维数组(1, 3) = 3二维数组(1, 4) = 4二维数组(1, 5) = 5二维数组(1, 6) = 6二维数组(2, 1) = 1二维数组(2, 2) = 2二维数组(2, 3) = 3二维数组(2, 4) = 4二维数组(2, 5) = 5二维数组(2, 6) = 6With MSChart1.chartType = VtChChartType2dBar '类型为2d柱形图.ChartData = 二维数组()End WithEnd Sub下面是将数组的第一个元素设置成字符，使图表加载时将其作为标题的示例：Private Sub Form_Load()Dim 二维数组(1 To 2, 1 To 6)'为了表示得更清楚，我们采取逐个赋值的方法二维数组(1, 1) = "第一行标题"二维数组(1, 2) = 2二维数组(1, 3) = 3二维数组(1, 4) = 4二维数组(1, 5) = 5二维数组(1, 6) = 6二维数组(2, 1) = "第二行标题"二维数组(2, 2) = 5二维数组(2, 3) = 4二维数组(2, 4) = 3二维数组(2, 5) = 2二维数组(2, 6) = 1With MSChart1.chartType = VtChChartType2dBar '类型为2d柱形图.ChartData = 二维数组()End WithEnd Sub最后总结数组元素与维和图表行列的对应关系，作以下关系图：上述例子是将数组的内容反应到图表中，下面我们将使用上面的一维和二维图表，从图表中获得数据给数组，并将数组显示出来以验证结果（我们采取设置一个断点，然后通过视图\本地的方式来查看生成的数组）：从图中可以看到，对于我们用2给数组生成的图表，再赋给新的数组时，数组变成了3维，并且每维还多了一个元素用来存储行标签，既“R1”、“R2”，多出来的一维用来存储列标签，既“C1”、“C2”等。

使用MSChart组件绘制统计图表

２２创建数据库表．
在Ｏａｌ据库ＺＸ创建数据库表ｖｏｌｊ＿ｈｔ该ｒｃｅ数ＨＸｉｃｃ＿ｈ，ｌ
＿
表数据来源于ＥＰ系统或ＭＥＲＳ系统，表结构如表１示。所
ｌｃｈｔ表１原油进厂情况表ｖｏｉｊｌｃ＿ｈ表结构
＿
＿
＿
ＭＡＮＲＴＮＶＡＲＨＡＲ２（０ＮＬＣ４）ＵＬ
原油来源编码物料名称
调用ＭＳＥｃｌ０３中图表制作功能等，根据某厂综合查询应ｘｅ０２用系统的开发，该应用系统属典型的ＢＳ模式，这里主要通过／当月、当年原油进厂情况（次的进厂量、存储埙耗、途运埙每
ＳｄＡｄｎｘｔｉｄＯ．ｅ及中文语言包ＭＳｈｒｃｓｘ。安装完后，ｕｏｅＣａｔＩｈ．ｅｅ打开Ｖ２０，在创建项目时。就能在工具栏中看到ＭＳｈｒＳ０８Ｃａｔ
Ｓｕｃ１点确定一新建连接一添加连接（改为Ｏａｌ据ｏｒｅ）更ｒｅ数ｃ库）一输入服务器名ｚｘ、用户名及密码测试连接成功一选ｈｘ
当月、当年原油进厂情况在页面左边以表格的形式展示，右面
以直方图的形式展示。
２．创建网站３
在Ｖ２０Ｓ０８中创建ＡＰＮＴ网站，简单起见，假设仅创建Ｓ．Ｅ

MSChart控件的用法

介绍MSChart的常用属性和事件介绍MSChart的常用属性和事件MSChart的元素组成最常用的属性包括ChartAreas：增加多个绘图区域，每个绘图区域包含独立的图表组、数据源，用于多个图表类型在一个绘图区不兼容时。

AlignmentOrientation：图表区对齐方向，定义两个绘图区域间的对齐方式。

AlignmentStyle：图表区对齐类型，定义图表间用以对其的元素。

AlignWithChartArea：参照对齐的绘图区名称。

InnerPlotPosition：图表在绘图区内的位置属性。

Auto：是否自动对齐。

Height：图表在绘图区内的高度（百分比，取值在0-100）Width：图表在绘图区内的宽度（百分比，取值在0-100）X,Y：图表在绘图区内左上角坐标Position：绘图区位置属性，同InnerPlotPosition。

Name：绘图区名称。

Axis：坐标轴集合Title：坐标轴标题TitleAlignment：坐标轴标题对齐方式Interval：轴刻度间隔大小IntervalOffset：轴刻度偏移量大小MinorGrid：次要辅助线MinorTickMark：次要刻度线MajorGrid：主要辅助线MajorTickMark：主要刻度线DataSourceID：MSChart的数据源。

Legends：图例说明。

Palette：图表外观定义。

Series：最重要的属性，图表集合，就是最终看到的饼图、柱状图、线图、点图等构成的集合；可以将多种相互兼容的类型放在一个绘图区域内，形成复合图。

IsValueShownAsLabel：是否显示数据点标签，如果为true，在图表中显示每一个数据值Label：数据点标签文本LabelFormat：数据点标签文本格式LabelAngle：标签字体角度Name：图表名称Points：数据点集合XValueType：横坐标轴类型YValueType：纵坐标轴类型XValueMember：横坐标绑定的数据源（如果数据源为T able，则填写横坐标要显示的字段名称）YValueMembers：纵坐标绑定的数据源（如果数据源为Table，则填写纵坐标要显示的字段名称，纵坐标可以有两个）ChartArea：图表所属的绘图区域名称ChartType：图表类型（柱形、饼形、线形、点形等）Legend：图表使用的图例名称Titles：标题集合。

MSChart属性

数据图表/报表技术图表/报表是数据信息输出最常用的格式，在各类管理系统中具有重要的作用和地位。

本章将通过数据报表设计器（Data Report Designer）、图表、直接编程打印、利用Microsoft Excel 和Microsoft Word等设计多种格式的报表。

这些报表格式是比较典型的报表形式，在实际开发中具有重要意义和作用。

在本章中将介绍有图表/报表的知识。

27.1 图表技术在实际编程过程中，有时需要将查询统计出来的数据用以图表的形式显示出来。

VB中提供了一个图表控件，使用该图表控件可以很方便地将数据以图表的形式显示统计出来。

在本节中将介绍一些有关图表的知识。

27.1.1 图表控件概述图表控件（MSChart）是可以按照一定的规范将数据以图表的形式绘制出来。

其绘制的数据源可以是动态数据，也可以存储数据中数据库中的数据、电子表格的数据等存储介质的数据。

可通过在控件的属性页中设置数据来创建图表，或者也可以从其他数据源为控件对象设置数据。

MSChart控件主要支持真三维表示，支持所有主要的图表和图形类型。

由于MSChart控件不是标准控件，要使用MSChart控件必需要将MSChart控件添加到控件工具箱中。

添加MSChart控件的方法为选择"工程"|"部件"命令，在出现的"部件"对话框中选择"Microsoft MSChart Controls 6.0(SP4)"选项并单击"确定"按钮。

这时候MSChart控件就被添加到VB的控件工具箱中。

27.1.2 图表控件的基本属性（1）设置MSChart控件对象的名称、大小、图表的标题、图表的页眉、图表的脚注、图表的行列数等，可通过设置MSChart控件的一些属性来完成。

MSChart控件的基本属性如表27-1所示。

表27-1 MSChart控件的基本属性续表续表下面将介绍MSChart控件中一些常用的属性。

MSCHART用法

1、MSChart控件的属性（1）ChartType属性：用于设置或返回图表类型，MSChart控件图表类型与对应ChartType属性值如表8.7所示。

如，ChartType=1则显示二维直方图，ChartType=14则显示饼图。

表8.7 MSChart图表类型（2）行（格）属性①RowCount属性：用于表示图表中总格（行）数。

例如：若MSChart控件显示二维数组Array_2(M，N)，则总格（行）数RowCount=M。

如：RowCount=5，表示有5格（行）数据。

若MSChart控件显示一维数组Array_1(N)的元素值，则总行数RowCount=1。

②Row属性：用于表示图表中某格（行）的序号。

若MSChart控件显示二维数组Array_2(M，N)，则图表中第I格的序号Row=I，当Row=1表示第1格（行）数据。

③RowLabel属性：用于表示格（行）标签名，默认值为Ri。

用户可以修改其值，如改为无锡地区人数、南京地区人数等。

④RowLabelCount属性：用于表示格（行）标签数，MSChart控件允许设置多个格（行）标签。

通常取值为1，当需要用2行以上的标签时，才修改此属性。

⑤RowLabelIndex属性：用于表示格（行）标签序号，用户通过设置不同格（行）标签序号选择不同格（行）标签进行编辑。

（3）列属性①ColumnCount属性：用于表示图表中每格（行）中的列数，即数组中列数N。

如设置ColumnCount=3，则每格（行）中有3列，图表每数据格用3个矩形或3个扇形表示。

②Column属性：用于表示图表中某格（行）某列的列序号，例如：Row=1,Column=1，表示图表中第1格（行）第1列。

③ColumnLabel属性：用于表示图表列标签名，默认为Ci。

④ColumnLabelCount属性：用于表示图表某格中的列标签数。

⑤ColumnLabelIndex属性：用于表示图表某格中的列标签序号。

VBA编写自动化散点图与趋势分析的技巧与案例分享

VBA编写自动化散点图与趋势分析的技巧与案例分享VBA（Visual Basic for Applications）是一种用于自动化处理Microsoft Office应用程序的编程语言。

在Excel中，VBA提供了强大的功能，可以帮助用户处理数据、创建图表以及进行数据分析。

本文将介绍如何使用VBA编写自动化散点图和趋势分析的技巧，并通过案例分享来展示其实际应用价值。

一、自动化散点图散点图是一种用于研究两个变量之间关系的图表。

通过散点图可以直观地观察到两个变量之间的趋势和分布情况。

在Excel中，我们可以使用VBA编写脚本来自动创建散点图，并进行必要的格式设置。

首先，我们需要准备好要绘制的数据。

假设我们有两列数据，分别为X轴和Y 轴的数值。

接下来，我们可以通过以下VBA代码创建散点图：```vbaSub CreateScatterChart()Dim cht As ChartObjectDim rngX As RangeDim rngY As Range' 获取要绘制的数据范围Set rngX = Sheets("Sheet1").Range("A2:A10")Set rngY = Sheets("Sheet1").Range("B2:B10")' 创建散点图Set cht = Sheets("Sheet1").ChartObjects.Add(Left:=100, Width:=400, Top:=100, Height:=300)' 设置图表类型为散点图cht.Chart.ChartType = xlXYScatter' 设置X轴和Y轴数据范围cht.Chart.SetSourceData Source:=Union(rngX, rngY)' 设置图表标题cht.Chart.HasTitle = Truecht.Chart.ChartTitle.Text = "Scatter Chart"' 设置X轴和Y轴标题cht.Chart.Axes(xlCategory, xlPrimary).HasTitle = Truecht.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "X Axis"cht.Chart.Axes(xlValue, xlPrimary).HasTitle = Truecht.Chart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Y Axis"End Sub```在上述代码中，我们首先定义了一个ChartObject对象cht，用于创建和设置散点图。

ASPNETMVC中使用MsChart制作图

ASP NET MVC 中使用MsChart制作图 MVC 中使用MsChart制作图表(附实例)000微软新发布的图表控件MSChart，依赖于.NET Framework3.5 sp1的环境，制作出的图表非常漂亮。

同时，支持webfrom，winform，MVC。

本文主要介绍在ASP .NET MVC 下如何使用MSCHART制作图表。

1.下面简单列举一下MSCHART的部分图表类型2维堆积饼状图2维面积图2维气泡图2维线性图二维柱状图三维饼状图三维面积图三维线性图2. 在 MVC 框架下，如何使用MSCHART.首先看效果柱状图饼状图下面介绍使用MsChart制作图表实现的步骤：首先修改web.config 1. 将控件的命名空间加到("<system.web><pages><controls>" ) : <add tagPrefix="asp" namespace="System.Web.UI.DataVisualization.Chartin g"assembly="System.Web.DataVisualization,Version=3.5 .0.0,Culture=neutral, PublicKeyToken=31bf3856ad364e35"/> 2. 添加一个httpHandler ("<httpHandlers>"下面) :<add path="ChartImg.axd" verb="GET,HEAD"type="System.Web.UI.DataVisualization.Charting.Cha rtHttpHandler,System.Web.DataVisualization, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" validate="false"/>3. 然后根据自己的需要，绘制不同的图表。

微软图表控件MsChart使用指南

微软图表控件MsChart使用指南昨天在网上看到了微软发布了.NET 3.5框架下的图表控件，第一时间抓下来看了一下，发觉功能很强劲，基本上能想到的图表都可以使用它绘制出来，给图形统计和报表图形显示提供了很好的解决办法，同时支持Web和WinForm两种方式，不过缺点也比较明显，只能在最新的开发环境中使用，需要.Net 3.5 Sp1以及VS 2008的开发环境。

下面是下载地址：mework 3.5)–1.包含英文版，中文版。

上面提供的链接是中文版的，可以更改为英文版。

2.语言包：Microsoft Chart Controls for Microsoft .NETFramework 3.5 Language Pack3.Microsoft .NET Framework 3.5 的Microsoft 图表控件的语言包，包含23中语言。

4.Microsoft Chart Controls Add-on for Microsoft Visual Studio 2008–这个只有英文的，没找到中文的。

5.文档（Microsoft Chart Controls for .NET Framework Documentation）–这个只有英文的，没找到中文的。

6.WinForm 和的例子（Samples Environmentfor Microsoft Chart Controls）–这个只有英文的，没找到英文的。

7.Demo 下载：/mschart下了它的示例程序后，运行了一下，非常的强大，可以支持各种各样的图形显示，常见的：点状图、饼图、柱状图、曲线图、面积图、排列图等等，同时也支持3D样式的图表显示，不过我觉得最有用的功能还是支持图形上各个点的属性操作，它可以定义图形上各个点、标签、图形的提示信息（Tooltip）以及超级链接、Jav ascript动作等，而不是像其它图形类库仅生成一幅图片而已，通过这些，加上微软自己的Ajax框架，可以建立一个可以互动的图形统计报表了。

VB调用数据库数据画mschart折线图

Private Sub Command1_Click()On Error Resume NextDim i As IntegerDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetSet conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\lwl.mdb"conn.Openrs.Open "select * from lwl", conn, adOpenKeyset, adLockOptimistic' Set MSChart1.DataSource = rsWith MSChart1'// 以线条方式显示.chartType = 3'// 把刻录改为手工方式.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False'// 设置最大值.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1000'// 设置最小值.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0'// 设置每格为 1.Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 1'// 设置收入和兼职收入总列数.ColumnCount = 2'//轴坐标标题.Plot.Axis(VtChAxisIdX, 0).AxisTitle = "日期".Plot.Axis(VtChAxisIdY, 0).AxisTitle = "收入"'//轴坐标标题字体大小的设置.Plot.Axis(VtChAxisIdX, 0).AxisTitle.VtFont.Size = 15 .Plot.Axis(VtChAxisIdY, 0).AxisTitle.VtFont.Size = 25'//设置图表标题.Title.Text = "日期和收入对应折线图"'// 显示图例说明.ShowLegend = True'// 标记每个点的值For i = 1 To .Plot.SeriesCollection.Count.Plot.SeriesCollection(i).DataPoints(-1).DataPointLa bel.LocationType = VtChLabelLocationTypeAbovePointNextIf rs.RecordCount > 0 Thenrs.MoveFirstElseExit SubEnd IfFor i = 0 To rs.RecordCount - 1.Column = 1 '收入曲线所在列.RowCount = rs.RecordCount.Row = i + 1.RowLabel = CStr(rs("日期")).Data = rs("收入").ColumnLabel = "收入" '图例说明文字'//兼职收入显示.Column = 2 '兼职收入曲线所在列.Data = rs("兼职收入").ColumnLabel = "兼职收入" '图例说明文字rs.MoveNextNextEnd WithEnd SubPrivate Sub Command2_Click() '下列示例设置图表查看距离和轴分段间距。

在vb中使用mschart来绘制excel图表

在Visual Basic中使用MSChart控件绘制Excel图表*依皮提哈尔·穆罕买提1，那斯尔江·吐尔逊1，热依曼·吐尔逊2（1.新疆大学数学与系统科学学院，新疆，乌鲁木齐，830046；2. 新疆大学信息工程学院，新疆，乌鲁木齐，830046）摘要：本文首先介绍如何使用Visual Basic中的MSChart控件，然后通过实例深入探讨利用MSChart控件绘制Excel数据源图表的方法。

关键词：Visual Basic；MSChart控件；Microsoft Excel数据表；图表中图分类号：文献标识码：AUsing MSChart Control Drawing Excel Chart in Visual Basic Iptihar.Muhammat1，Nasirjan.Tursun1，Reyima.Tursun(1.Mathematics and System Science Institute of Xinjiang University, Urumqi, Xinjiang, 830046)(2. Information Engineering Institute of Xinjiang University, Urumqi, Xinjiang, 830046)Abstract :This article discusses how to use the MSChart control and how that is used in the VB project to drawing Microsoft® Excel charts.Key words: MSChart Control；Chartdata ；Mirosoft Excel Sheets；Chart；Database1. 引言Visual Basic中的MSChart控件是一个功能强大的高级图表工具，拥有丰富的图表绘制功能，用它来可以显示二维和三维的棒图、区域图、线形图、饼图等多种常用图表。

MSChart控件教程

MSChart控件教程MSChart控件这些内容是在学习过程中进行的整理，由于感到书籍资料或软件帮助中有时让人很不容易理解，特制作这个教程，以方便其他朋友学习，从新学习此控件的人的角度来描述相应的属性，相信也能让跟我一样程度的人更容易理解，可能在学习的过程中对某些属性与方法有理解不正确，请各位指正。

示例：下列代码在窗体加载时将MSChart1设置为3d柱形图，并允许按住ctrl+鼠标左键旋转。

如果数组中并不包含标题（或是之后使用属性来赋于标题），那么数组是可以定义类形的，个人建议先给定数组类型，之后再使用属性来设置标题。

作用：设置：将一个数组的数据作表图表的显示数据返回：将图表数据赋给一个数组示例：将数组元素作为图表的显示数据制作一个1行6列的的图表（数组的维代表图表的行，每维的元素代表列）Private Sub Form_Load()Dim 一维数组(1 To 6)'为了表示得更清楚，我们采取逐个赋值的方法一维数组(1) = 1一维数组(2) = 2一维数组(3) = 3一维数组(4) = 4一维数组(5) = 5一维数组(6) = 6With MSChart1.chartType = VtChChartType2dBar '类型为3d柱形图.ChartData = 一维数组()End WithEnd Sub为了理解图表的行列与数组的维数的对应关系，再举例一个二维数组（图表对应就形成2行6列）Private Sub Form_Load() Dim 二维数组(1 To 2, 1 To 6)'为了表示得更清楚，我们采取逐个赋值的方法二维数组(1, 1) = 1二维数组(1, 2) = 2二维数组(1, 3) = 3二维数组(1, 4) = 4二维数组(1, 5) = 5二维数组(1, 6) = 6二维数组(2, 1) = 1二维数组(2, 2) = 2二维数组(2, 3) = 3二维数组(2, 4) = 4二维数组(2, 5) = 5二维数组(2, 6) = 6With MSChart1.chartType = VtChChartType2dBar '类型为2d柱形图.ChartData = 二维数组()End WithEnd Sub下面是将数组的第一个元素设置成字符，使图表加载时将其作为标题的示例：Private Sub Form_Load()Dim 二维数组(1 To 2, 1 To 6)'为了表示得更清楚，我们采取逐个赋值的方法二维数组(1, 1) = "第一行标题"二维数组(1, 2) = 2二维数组(1, 3) = 3二维数组(1, 4) = 4二维数组(1, 5) = 5二维数组(1, 6) = 6二维数组(2, 1) = "第二行标题"二维数组(2, 2) = 5二维数组(2, 3) = 4二维数组(2, 4) = 3二维数组(2, 5) = 2二维数组(2, 6) = 1With MSChart1.chartType = VtChChartType2dBar '类型为2d柱形图.ChartData = 二维数组()End WithEnd Sub最后总结数组元素与维和图表行列的对应关系，作以下关系图：上述例子是将数组的内容反应到图表中，下面我们将使用上面的一维和二维图表，从图表中获得数据给数组，并将数组显示出来以验证结果（我们采取设置一个断点，然后通过视图\本地的方式来查看生成的数组）：从图中可以看到，对于我们用2给数组生成的图表，再赋给新的数组时，数组变成了3维，并且每维还多了一个元素用来存储行标签，既“R1”、“R2”，多出来的一维用来存储列标签，既“C1”、“C2”等。

VC++6.0中MsChart的使用方法

VC++6.0中MsChart的使用方法VC++6.0中MsChart的使用方法1.MSChart制图类1.1 添加MSChart控件MSChart是VC++6.0中自带的一个特殊控件类，用于绘制坐标曲线图。

如果要使用这个控件，则可以按下图的示意进行添加此控件。

1.2MSChart控件的使用方法首先在要使用的类的实现文件中包含如下头文件：#include "VcPlot.h"#include "VcAxis.h"#include "VcValueScale.h"#include "VcSeriesCollection.h"#include "VcSeries.h"#include "VcPen.h"#include "VcCategoryScale.h"#include "VcColor.h"#include "VcDataGrid.h"#include "VcBackdrop.h"#include "VcFill.h"#include "VcBrush.h"#include "VcDataPoints.h"#include "VcDataPoint.h"#include "VcDataPointLabel.h"#include "VcAxisTitle.h"#include "math.h"在要使用的类的头文件中包含：#include "mschart.h"本系统中按照如下函数调用来实现MSChart类绘制故障树重要度曲线的功能（CDrawImp是调用MSChart的类）。

VB调用数据库数据画mschart折线图

Private Sub Command1_Click()On Error Resume NextDim i As IntegerDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetSet conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\lwl.mdb"conn.Openrs.Open "select * from lwl", conn, adOpenKeyset, adLockOptimistic' Set MSChart1.DataSource = rsWith MSChart1'// 以线条方式显示.chartType = 3'// 把刻录改为手工方式.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False'// 设置最大值.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1000'// 设置最小值.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0'// 设置每格为1 .Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 1'// 设置收入和兼职收入总列数.ColumnCount = 2'// 轴坐标标题.Plot.Axis(VtChAxisIdX, 0).AxisTitle = " 日期".Plot.Axis(VtChAxisIdY, 0).AxisTitle = " 收入"'// 轴坐标标题字体大小的设置.Plot.Axis(VtChAxisIdX, 0).AxisTitle.VtFont.Size = 15.Plot.Axis(VtChAxisIdY, 0).AxisTitle.VtFont.Size = 25'// 设置图表标题.Title.Text = " 日期和收入对应折线图'// 显示图例说明.ColumnLabel = "收入 " 图例说明文字.ShowLegend = True'// 标记每个点的值For i = 1 To .Plot.SeriesCollection.Count.Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePointNextIf rs.RecordCount > 0 Thenrs.MoveFirstElseExit SubEnd IfFor i = 0 To rs.RecordCount - 1.Column = 1.RowCount = rs.RecordCount.Row = i + 1.RowLabel = CStr(rs(" 日期 ")).Data = rs(" 收入 ").Column = 2' 兼职收入曲线所在列收入曲线所在列'// 兼职收入显示.Data = rs(" 兼职收入").ColumnLabel = " 兼职收入" ' 图例说明文字rs.MoveNextNextEnd WithEnd SubPrivate Sub Command2_Click() ' 下列示例设置图表查看距离和轴分段间距。

MSChart图表控件的一些使用

MSChart图表控件的一些使用最近使用MSChart做了几张图表，微软提供的例子中对这个图表控件的使用已经说的比较详细了，我这里记录一些需要注意的。

1. Chart图表的元素要使用该图表首先要了解该图表的元素组成，就是下面这张图了，图表主要包含：Annotations （图形注解集合）ChartAreas（图表区域集合）Legends（图例集合）Series图表序列集合即图表数据对象集合）Title（图标的标题集合）其他大家可以参考Samples中的Char Features一节。

2. 如何在 MVC中使用Chart控件2.1.需要在"<system.web><pages><controls>"中添加如下：<add tagPrefix="asp" namespace="System.Web.UI.DataVisualization.Charting" assembly="System.Web.DataVisualization,Version=3.5.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>2.2.在"<httpHandlers>"中添加如下部分：<add path="ChartImg.axd" verb="GET,HEAD" type="System.Web.UI.DataVisualization.Charting.ChartHttpHan dler,System.Web.DataVisualization, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" validate="false"/>2.3. 有了上面的配置就可以测试了：2.3.1.View中添加：<asp:chart id="Chart1" runat="server" Height="296px"Width="412px" Palette="BrightPastel" imagetype="Png"BorderDashStyle="Solid" BackSecondaryColor="White" BackGradientStyle="TopBottom" BorderWidth="2" backcolor="#D3DFF0"BorderColor="26, 59, 105"><Titles><asp:Title Text="With datasource in code behind" /></Titles><legends><asp:Legend IsTextAutoFit="False" Name="Default" BackColor="Transparent" Font="Trebuchet MS, 8.25pt, style=Bold"></asp:Legend></legends><borderskin skinstyle="Emboss"></borderskin><series><asp:Series Name="Column" BorderColor="180, 26, 59, 105"> </asp:Series></series><chartareas><asp:ChartArea Name="ChartArea1" BorderColor="64, 64, 64, 64" BorderDashStyle="Solid" BackSecondaryColor="White"BackColor="64, 165, 191, 228" ShadowColor="Transparent" BackGradientStyle="TopBottom"><area3dstyle Rotation="10" perspective="10" Inclination="15" IsRightAngleAxes="False" wallwidth="0"IsClustered="False"></area3dstyle><axisy linecolor="64, 64, 64, 64"><labelstyle font="Trebuchet MS, 8.25pt, style=Bold" /><majorgrid linecolor="64, 64, 64, 64" /></axisy><axisx linecolor="64, 64, 64, 64"><labelstyle font="Trebuchet MS, 8.25pt, style=Bold" /><majorgrid linecolor="64, 64, 64, 64" /></axisx></asp:ChartArea></chartareas></asp:chart>2.3.2.index.aspx.cs中添加protected void Page_Load(object sender, System.EventArgs e) {foreach (int value in (List<int>)this.ViewData["Chart"]){this.Chart1.Series["Column"].Points.Add(value);}}2.3.3.Controller中：public ActionResult Index(){ViewData["Title"] = "Home Page";ViewData["Message"] = "Welcome to MVC!";List<int> chartList = new List<int>();chartList.Add(1);chartList.Add(2);chartList.Add(6);chartList.Add(5);chartList.Add(4);ViewData["Chart"] = chartList;return View();}2.3.4.添加System.Web.ui.DataVisualization引用3. Tooltip的使用ToolTip用于在各个关键点，如：标签、图形关键点、标题等当鼠标移动上去的时候，提示用户一些相关的详细或说明信息。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

MSCHART的使用之vb中利用MSCHART控件画二维散点图
2008年03月31日星期一 16:12
近日在学习傅立叶分解时,写了个小程序来验证自己对傅立叶分解的一些理解,为了更生动直观就需要画一些图形,以前总是用picture控件来实现,后来在网上看到VB中有个MSCHART控件可以来画很多类型的图形,就学习了一下,由于是第一次搞,所以按习惯在网上搜索相关帖子,发现没有一个很完整的关于MSCHART中二维散点图的例子,很是郁闷,经过我自己几天的努力,终于解决了这个问题.现以一个具体的例子来说明,希望我的这个例子能对大家有所帮助.这个例子是一个论坛上一位网友提出来的,但是这个问题一直到现在还没有人回答,我权当在这里回答一下吧.问题如下:
如何用VB画出我附件中的图，请各位知道的高手指点下，小弟感激不尽！
最好能根据我给的数据写出具体的源代码，或者类似的也可以。

再次感谢！
上面是这个帖子的原始图形
根据此我写了下面的代码
Private Sub Form_Load()
'对于二维散点图来说，第一列代表了X轴坐标，第二列代表了Y轴坐标
'因此在定义二维数据时，第二维定义为0到1，第一维代表了第几点数据，可根据数据点数变化
'下面以数据点数有21点为列子
Dim MyData(20, 1) As Double
'-----x轴坐标值-----Y轴坐标值----------
MyData(0, 0) = 0: MyData(0, 1) = 180 '本句代表了：第一点数据的X轴坐标为0，Y轴坐标为180
MyData(1, 0) = 6: MyData(1, 1) = 60
MyData(2, 0) = 8: MyData(2, 1) = 60
MyData(3, 0) = 11: MyData(3, 1) = 0
MyData(4, 0) = 16: MyData(4, 1) = 0
MyData(5, 0) = 19: MyData(5, 1) = 60
MyData(6, 0) = 25.8: MyData(6, 1) = 60
MyData(7, 0) = 28.8: MyData(7, 1) = 0
MyData(8, 0) = 31.8: MyData(8, 1) = 60
MyData(9, 0) = 40.3: MyData(9, 1) = 60
MyData(10, 0) = 43.3: MyData(10, 1) = 0
MyData(11, 0) = 93.3: MyData(11, 1) = 0
MyData(12, 0) = 96.3: MyData(12, 1) = 60
MyData(13, 0) = 99.3: MyData(13, 1) = 0
MyData(14, 0) = 105.3: MyData(14, 1) = 0
MyData(15, 0) = 135.3: MyData(15, 1) = 0
MyData(16, 0) = 144.3: MyData(16, 1) = 180
MyData(17, 0) = 148.8: MyData(17, 1) = 270
MyData(18, 0) = 405.03: MyData(18, 1) = 270
MyData(19, 0) = 409.53: MyData(19, 1) = 180
MyData(20, 0) = 564.17: MyData(20, 1) = 180
'波形图外观设置
With MSChart1
.TitleText = "速度 m/min"
' '设置图线的外观
.Plot.SeriesCollection(1).Pen.Width = 30
.Plot.SeriesCollection(1).Pen.Style = VtPenStyleSolid
' '设置XY轴
.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False
.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False
'// 设置最大值
.Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 600
.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 300
'// 设置最小值
.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
.Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0
'//
.Plot.Axis(VtChAxisIdX).ValueScale.MajorDivision = 6 'X轴主要网格数量 .Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 6 'Y轴主要网格数量 .Plot.Axis(VtChAxisIdX).ValueScale.MinorDivision = 0 'X轴次要网格数量 .Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 0 'Y轴次要网格数量 .Plot.Axis(VtChAxisIdX).AxisGrid.MajorPen.Style = VtPenStyleDotted
.Plot.Axis(VtChAxisIdY).AxisGrid.MajorPen.Style = VtPenStyleDotted
MSChart1.Plot.AutoLayout = False
MSChart1.Plot.UniformAxis = False
MSChart1.chartType = VtChChartType2dXY '设置图形为二维散点图
MSChart1.ChartData = MyData '数据
End With
End Sub
运行后的效果图如下
MSCHART的二维散点图对于实际工作是有很大用途的，例如数据采集中,实现时间变量的曲线等等.希望这个例子对大。