软件应用・Ｓｏｆｔｗａｒｅ Ａｐｐｌｉｃａｔｉｏｎ ＶＢＡ实现自动创建Ｅｘｃｅｌ图表 文／刘美丽 表１ Ｅｘｃｅ１是一个集数据处理和图 表绘制于一身的优秀软件。根据 工作表的数据，利用“图表向导” 可以方便快捷地绘制图表。但是 当需绘制的图表数量较多时，“图 表向导”的绘图方式就不那么“可 爱”了。本文通过对Ｅｘｃｅ１的二 次开发，用Ｅｘｃｅ１ ＶＢＡ编程实现 了折线图的自动绘制。对本程序 稍作修改，可用于绘制其它类型 的图表。 Ｃｈａ￣Ｔｙｐｅ值 ｘｌＡｒｅａ 图表类型 面积图 ｘｌＣｏｌｕｍｎＣｌｕｓｔｅｒｅｄ ｘｌＤｏｕｇｈｎｕｔ ｘ１Ｌｉｎｅ ｘｌＬｉｎｅＭａｒｋｅｒｓ ｘｌＰｉｅ ｘ１Ｒａｄａｒ ｘｌＳｔｏｃｋＨＬＣ ｘｌＳｕｒｆａｃｅ ｘｌＸＹＳｃａａｅｒ 簇状柱形图 圆环图 折线图 数据点折线图 饼图 雷达图 盘高一盘低一收盘图 三维曲面图 散点图 表的显示位置。Ｌｏｃａｔｉｏｎ（）方法即是指定新 Ｘｖａｌｕｅｓ＝Ｒａｎｇ（“Ａ１：Ａ５”） 创建的图表的插入位置的。其语法如下： 【关键词】Ｅｘｃｅｌ ＶＢＡ自动创建图表折线图 Ｃｈａｒｔ．Ｌｏｃａｔｉｏｎ（Ｗｈｅｒｅ，Ｎａｍｅ） Ｗｈｅｒｅ用于指定图表的插入位置： １引言 Ｅｘｃｅｌ是一个集数据处理和图表绘制于一 身的优秀软件。运用Ｅｘｃｅｌ的“图表向导”来 绘制图表也不算麻烦。但是，如果要绘制的图 ２．３ ＳｅｔＳｏｕｒｃｅＤａｔａ（）方法 表数量很多，用“图表向导”的绘图方式来绘 ＳｅｔＳｏｕｒｃｅＤａｔａ（）方法用来指定作图的源 制图表，就不是一件令人愉快的事了。 本校老师在参与《国家重点基础研究发 数据区域。其语法为：Ｃｈｒａｔ．ＳｅｔＳｏｕｒｃｅＤａｔａ（Ｓｏｕｒｃｅ，ＰｌｏｔＢｙ） 展计划一一９７３计划子课题一一湖南省酸雨污 其中，ｓｏｕｒｃｅ用于指定数据源，可将 染现状、成因及控制对策研究》项目的数据处 ｏｔＢｙ用于指定 理工作中，需要绘制湖南省十四个地市及全 Ｒａｎｇｅ对象传说递给该参数。Ｐｌ数据绘制方法，如果传递系统常量ｘｌＣｏｌｕｍｎｓ 省ｐＨ均值和九种要求的离子（ＳＯ 、ＮＯ 。、 ＮＨ４￣、Ｃａ 、Ｆ。、ＣＩ。、Ｍｇ 、Ｎａ＋、Ｋ ） 的离 则表示数据在列上生成（系列产生在列）；如 子浓度均值及［ＳＯ／。］／［Ｎｏ ＿】、【ＳＯ４２－］／［ＺＡ’】、 果传递系统常量ｘＬＲｏｗｓ，则表示数据在行上 ［ＮＯ，］／ Ａ＿］、（［ＳＯ／－］＋［ＮＯ３１）／［∑Ａ］、［Ｃａ ］／［ 生成（系列产生在行）。ＳｅｔＳｏｕｒｃｅＤａｔａ（）方法虽然能很方便地指 ＮＨ４＋］、［［Ｃａ ］／［ＺＢ ］、［ＮＨ ］／［ＺＢ ］、［ＺＡ］／［ＺＢ ］ 定数据源，但该方法不可以接受分散的单元格 十年数据的逐年、逐季、逐月的变化折线图。 对于这种相同数据结构的大量图表绘制，用“图 区域作为图表的数据源。当需要灵活地操纵图 表向导”来一张张绘制显然是令人生畏的，而 表的数据源时，需使用ＳｅｒｉｅｓＣｏｌｌｅｃｔｉｏｎ（）方法。 使用Ｅｘｃｅｌ ＶＢＡ对Ｅｘｃｅｌ的作图功能进行二次 ２．４ ＳｅｒｉｅｓＣｏ１１ｅｃｔｉｏｎ（）方法 开发，将可大大提高工作效率。 ｘｌＬｏｃａｔｉｏｎＡｓＮｅｗＳｈｅｅｔ指定新图表作为新工作 表插入工作簿中，此时Ｎａｍｅ为新工作表的名 称（可省略）；ｘｌＬｏｃａｔｉｏｎＡｓＯｂｊｅｃｔ指定新创 建的图表作为图像元素插入到工作表中，此时 Ｎａｍｅ为要插入的工作表的名称。 ＳｅｒｉｅｓＣ０ｌｌｅｃｔｉｏｎ（）方法可以自由地控制 图表中所有的显示数据，通过它，程序可以 自由地操纵图表抽需的每一个数据，因此比 ＳｅｔＳｏｕｒｃｅＤａｔａ（）方法更为灵活。 ２．５ Ａｘｅｓ（）方法 Ｃｈａｒｔ对象的Ａｘｅｓ（）方法返回图表上单 个坐标轴或坐标轴集合的某个对象。该方法的 语法如下： Ｃｈａｒｔ．Ａｘｅｓ（Ｔｙｐｅ，ＡｘｉｓＧｒｏｕｐ） Ｔｙｐｅ参数用于指定要返回的坐标轴，可 以是以下系统常量之一：数值轴一ｘｌＶａ１ｕｅ、分 类轴－－ｘｌＣａｔｅｇｏｒｙ或用于三维图表，表示纵深 轴向的ｘｌＳｅｒｉｅｓＡｘｉｓ。 通过Ａｘｅｓ（）方法，可以控制图表上坐 标轴的相关属性，如坐标轴显示的标题、坐标 轴的刻度等。 ２．６ Ｃｈａｒ ｔＴｙｐｅ属性 ＣｈａｒｔＴｙｐｅ属性用于指定图表的类型。常 用图表类型和ＣｈａｒｔＴｙｐｅ属性值的对应关系如 表１。 ３作图数据 将计算结果转换成易于作图的形式，如 图１。图中每一行数据将绘制一张图。 ２ Ｅｘｃｅ Ｉ ＶＢＡＳＪ建图表常用的方法 ＳｅｒｉｅｓＣｏｌ１ｅｃｔｉｏｎ是Ｓｅｒｉｅｓ对象的集合 对象。Ｓｅｒｉｅｓ对象表示图表中的一个系列。 ４程序实例及注解 Ｅｘｃｅｌ ＶＢＡ是利用Ｃｈａｒｔ对象来创建图表 系列是一个图表中用于比较的一组数据，ｅｓＣｏ１ｌｅｃｔｉｏｎ即是保存这些系列的集合。系 的。Ｃｈａｒｔ对象和Ｃｈａｒｔｓ对象集最常用的方法 Ｓｅｒｉ和属性有： 列在不同的图表中有不同的含义。在折线图中， Ｓｕｂ绘制折线图（） Ｄｉｍ ｍｙｃｅｌｌ Ａｓ Ｒａｎｇｅ 每条线即是一个系列，雷达图中每个区域即是 ２．１ Ａｄｄ（）方法 Ｄｉｍ ｉｓｅｃｔ Ａｓ Ｒａｎｇｅ 个系列，饼图只有一个系列。 Ｄｉｍ ｉＡｓ Ｉｎｔｅｇｅｒ Ｓｅｒｉｅｓ对象中常用的属性有Ｎａｍｅ、Ｖａｌｕｅｓ Ｃｈａｒｔｓ对象集的Ａｄｄ（）方法用于向图表 Ｄｉｍ ｍＡｓ Ｉｎｔｅｇｅｒ 和ＸＶａｌｕｅｓ。其中Ｎａｍｅ属性表示该系列的名 集合中添加新的图表对象。例： Ｄｉｍ ｎＡｓ Ｉｎｔｅｇｅｒ 称，会在图表的图例区域显示出来；Ｖａｌｕｅｓ属 Ｓｅｔ ｍｙｃｈａｒｔ＝ｃｈａｒｔｓ．Ａｄｄ ＯｎＥｒｒｏｒＧｏＴｏｅｓｃ ‘错误陷井 性表示该系列的实际值，用于确定图表中图形 表示在活动图表之前插入一个新的图表， Ｆｏｒ ｒ：１ Ｔｏ ２７０ ‘第２行至第２７１行为 位置的形状；ＸＶａｌｕｅｓ属性表示该系列的横坐 并将返回值保存在ｍｙｃｈａｒｔ对象变量中，以便 需作图的数据，每一行数据需作一张图 标值，传统在图表的横坐标上显示出来。 需要时通过该变量来访问该图表。 Ｗｏｒｋｓｈｅｅｔｓ（”年均值”）．Ａｃｔｉｖａｔｅ Ｖａｌｕｅｓ和ＸＶａｌｕｅｓ属性必须用Ｒａｎｇｅ对象 ２．２ Ｌｏｃａｔｉｏｎ（）方法 Ｓｅｔ ｍｙｃｅｌｌ＝Ｗｏｒｋｓｈｅｅｔｓ（”年均值 来指定，不可指定为变量的值。如： ｔ． Ｓｅｒ ｉｅｓＣ Ｏ１１ ｅ ｃｔｉ Ｏ ｎ １ｒ 、 ”）．Ｒａｎｇｅ（Ｃｅｌｌｓ（ｒ＋１，１），Ｃｅｌｌｓ（ｒ＋１，１２）） 指 Ａｄｄ（）方法创建的图表只存在于内存， ｖａｌｕｅｓＣ ＝Ｒａｈ ｒｎｇ ａ ｒＢ１：Ｂ５、定作图数据源 要在工作表中看到新创建的图表，必须指定图 Ｃ ｈ ｒ ａ Ｓ ｅ Ｓ ｅｔ ｉ Ｓ ｅ ｃｔ Ａ Ｐ Ｐ１ｉ Ｃ ａｔｉ ０ ｎ ｒ ｉ ｅ Ｃ ｏ ｌ１ ｅ ｃ ｔ ｉ ｏ ｎ ｆ ｌ １ 一“，，．７４・电子技术与软件工程Ｅｌｅｃｔｒｏｎｉｃ Ｔｅｃｈｎｏｌｏｇｙ＆Ｓｏｆｔｗａｒｅ Ｅｎｇｉｎｅｅｒｉｎｇ Ｓｏｆｔｗａｒｅ Ａｐｐｌｉｃａｔｉｏｎ・软件应用 Ｉｎｔｅｒｓｅｃｔ（Ｗｏｒｋｓｈｅｅｔｓ（” １２７ １”），ｍｙｃｅｌ１） 均值”）．Ｒａｎｇｅ（”ｃ２： 列 国ＭｉｃⅢ。 Ｅｘｃｅ１．２０００．２ｏｏ９卑潜水年，≈蠢ｘ ０ｌ事盼辨嘲醛鞠爨ｏＤ撼 固搬嗽 Ｔ．Ｊ￣Ｄ嬲崴 啻口ｏ６０ ＩＩ勘锄Ａｄｏｂｅ ｐＤ ｝…瞄 鋈釜 ．尊ｘ ‘汁锌数 源的 个－ 冗格的行 号和总列致 ｉ＝ｉｓｅｃｔ．Ｒｏｗ Ｉ１１＝ｉｓｅｃｔ．Ｃｏｌｕｍｎ ｎ＝ｍ＋ｉｓｅｃｔ．Ｃｏｌｕｍｎｓ．Ｃｏｕｎｔ—ｌ ＡＩ４ 矗 ． ．＿． Ｂ 璜目 口Ｈ肆均壤 Ｄｌ－１年均值 ＤＨ年均值 年均值 ｎＨ年均僵 甜年均僵 ０Ｈ年均擅 长沙市 Ｃ １ ２ ３ ４ ５ ６ 城市 常德市 样州市 撕阳市 悍化市 吉■市 Ｄ Ｅ Ｇ Ｈ Ｉ ＪＫ ２０００年 ２００１年 ２００２￣ ２００３年 ２００１蕾 ２００５妊 ２００６盔 ２００７年 ２００８奄 ２００９年 ４．９５ ４．５０ ４．１１ ４．５９ ４．２４ 《．０２ ４．０６ ５．７１ ６．姐 ６．２５ ７．２５ ６ １４ ５．３１ ５。９９ ５．４７ ５．５ｌ ４．７８ ４．６３ ４．９９ ４．６８ ４．７７ ｄ ｑ９ ４．６６ ５．７２ ５．６Ｉ ４．１ｌ ４．４Ｉ ４．５３ 《．２３ ４ ３７ ｑ．３５ ４．６０ ４．８６ ４．４４ ５．２２ ４．０３ ３．９６ 《．ｑＩ ４．５７ ４．８６ ５．１５ ｑ．７０ ４，３２ ‘查 』：作簿 ｝ｌ是甭存在与欲建 表同 ７ 叠膝市 ８ 鄙阳市 ５．６０ ４ ６０ ５．５９ ４．８７ ４．７０ ４．５８ ｔ．７Ｉ ４．ｇＩ 日．６７ ４－６３ ｑ．５５ ４．５日 ４．７０ ４．８４ ４．６５ ４．８６ ４．Ｂ０ ４ Ｔ０ 名的 丧，若无则新缱一个图表，若 则激活 该图表 ＩｆＮｏｔ（ｆｉｎｄ（Ｗｏｒｋｓｈｅｅｔｓ（”年均值”）．Ｃｅｌｌｓ（ｉ ９ ｌ０ｌ１ １２ 湘鼍市 盏阳市 永州市 岳阳市 硼年均僵 ＤＨ茸均馐年均擅 ０Ｈ年均瞳 ４ ７１ 『４．８０ ５．２１ ５．１５ ４．５０ ４．６９ ６ ３８ ５．１０ ４． ８ 《．６８ ６．２ｇ ４．９８ ４．９Ｉ ４．０５ ６．１０ ４．９８ ４．０Ｉ ｑ．９１ ５．２５ ４ ８３ ４．６ｌ ４．７５ ６．２４ ５．Ｏ９ ５．１６ ４．５５ ５．３４ ４．７２ ４．９２ 日．６２ ５．５８ ５．３０ ｑ．９６ ５．０２ ６．ｉ０ ５．Ｉ１ ５．明 ５．４６ ６．Ｉ１ ５．１６ 】）＆Ｗｏｒｋｓｈｅｅｔｓ（”年均他”）．Ｃｅｌｌｓ（ｉ，２）））Ｔｈｅｎ Ｃｈａｒｔｓ Ａｄｄ 酱 隳 口ＢＨ年均慢年均僵 Ｉ５悻洲市 １６ 全省 口Ｈ年均睡 ｏＨ年均墟 ： ４．８０ ４５ ．０３７２ ４５．６３Ｓ５ ６ ４．２０３１ ４ ３ ．０９０９ ｄ ４ ．３０３２ ４． ０９１ ４ ３．６９６９ ４．５２６ ｑ ．５７ ４．９ｌ ４．５５ ４．９５ ４．３７ ４．８４ ４．３２ ４．３８ ｄ．１４ ｑ．３８ ４．３３ ４．５２ ４．５３ ４ ５８ ４．６７ ｝ｌ ；草德市 ｉ盎酸根聋均值 － １ ７２§２ ２０６．８８ ２３０ ６２ ２６４１３ ｌ｛ 蝤 ２０７ ０６ ｌ； ６ｊ §；站 ＡｃｔｉｖｅＣｈａｎ．ｎａｍｅ＝Ｗｏｒｋｓｈｅｅｔｓ（” 均值 Ｉ １８橱诩１市 Ｉ １９莓阳市 砖酸掇每均擅 硝酸｛曩年均幢 ２５０ ４２ １６１．５７ ２３５．００ ２．２９ ｌ３’ ｌ ６’ ９ｌｉＳ ３５２ Ｓ ６１ ２５２１ ２５ｌ｛， ３ ：Ｊ’ ｌ ”）．Ｃｅｌｌｓ（ｉ，１）＆Ｗｏｒｋｓｈｅｅｔｓ（”年均值”）．Ｃｅｌｌｓ（ｉ，２） ’图表 称 Ｅｌｓｅ １４Ｉ．４６ ２５１ ２５ ２２０ ４２ ２２Ｔ．Ｓ０ ６２９“ ３９６Ｏ’ １：Ｏ Ｓｌ Ｄ． 制术蔷黜辜端 垒省；；６墓 ｌ均值 每２】．６Ｔ Ｉ叠 季 俏 月均｛ ３２．７ｌ ｌ５９．ＩＴ 一一皇 ／Ｉ． ｉ １Ｓ；甜 ：’Ｓｌ６ ｉＩ ＂ 默Ｓ０ ；ｌ６ ３： ａ３５ ｇ０ ｝｝ 簟螬 熬享 ｉ Ｃｈａｒｔｓ（Ｗｏｒｋｓｈｅｅｔｓ（” 均值”）．Ｃｅｌｌｓ（ｉ，１）＆ Ｗｏｒｋｓｈｅｅｔｓ（”年均值”）．Ｃｅｌｌｓ（ｉ，２））．Ａｃｔｉｖａｔｅ ＥｎｄＩｆ ＡｃｔｉｖｅＣｈａｒｔ．ＣｈａｒｔＴｙｐｅ＝ｘｌＬｉｎｅＭａｒｋｅｒｓ 图１ ‘指定ｌ划表类型为数拂 点折线 Ａ ｃｔｉ ｖ ｅＣ ｈ ａ ｒｔ．Ｓ ｃｔ Ｓ ｏ ｕ ｒ ｃ ｅＤ ａｔ ａ Ｓｏｕｒｃｅ：＝ｍｙｃｅｌ１．ＰｌｏｔＢｙ：＝ｘｌＲｏｗｓ 的数 源，系歹０ｆ 生 仃 Ｗｉｔｈ Ｗｏｒｋｓｈｅｅｔｓ（” 均位”） ‘指定作图 Ｆ ｏ ｒ Ｅ ａ ｃ ｈ ｏ ｎ ｅ Ｉ ｎ Ａ ｃｔｊ ｖ ｅＣ ｈ ａ ｒｔ． ＳｅｒｉｅｓＣｏｆｌｅｃｔｉｏｎ ｏｎｅ．ＸＶａｌｕｅｓ＝．Ｒａｎｇｅ（．ＣｅｌＩ ｓ（１，ｍ）， ．Ｃｅｌｌｓ（１，ｎ））’分类名称 ｏｎｅ．ｎａｎｌｅ＝．ＣｅｔＩｓ（ｉ，１） ’Ｊ 例名称 ｉ＝ｉ＋１ Ｎｅｘｔ ｏｎｅ ＥｎｄＷｉｔｈ Ａ ｃ ｔ ｉ ｖ ｅ Ｃ ｈ ａ ｒ ｔ Ｌ ｏ ｃ ａ ｔ ｉ ｏ ｎ Ｗｈｅｒｅ：＝ｘｌＬｏｃａｔｉｏｎＡｓＮｅｗＳｈｅｅｔ Ｗｉｔｈ ＡｃｔｉｖｅＣｈａｒｔ ．‘创建的新 图表作为新工作表插入剑工作簿巾 ＨａｓＴｉｔｌｅ＝Ｔｒｕｅ ‘指定要显示图１ｋ 题 ＣｈａｒｔＴｉｔｌｅ．Ｃｈａｒａｃｔｅｒｓ．Ｔｅｘｔ＝Ｗｏｒｋｓｈｅｅｔｓ（” 图２ ．年均值”）．Ｃｅｌｌｓ（ｉ一１，１）＆Ｗｏｒｋｓｈｅｅｔｓ（”ｑ－均 ”）．Ｃｅｌｌｓ（ｉ．１，２）＆”十 变化趋谤” ‘指定ｌ割 表标题的文字 ．Ａｘｅｓ（ｘＩＣａｔｅｇｏｒｙ，ｘｌＰｒｉｍａｒｙ） ＨａｓＴｉｔｌｅ 数ｆｌ＇ｆ￣：ｌｈ的｛ ｑ格线 ．５图表样张 Ｔｒｕｅ ‘指定显示分类 Ｉ标题 ．ＨａｓＭｉｎｏｒＧｒｉｄｌｉｎｅｓ＝Ｆａｌｓｅ Ａｘｅｓ（ｘＩＣａｔｅｇｏｒ ｙ．ｘｌＰｒｉｍａｒｙ）．ＡｘｉｓＴｉｔｌｅ． 示数 轴的次网格线 ＥｎｄＷｉｔｈ Ｎｅｘｔ ｒ ｅｓｃ： Ｃｈａｒａｃｔｅｒｓ．Ｔｅｘｔ＝”年份” 的文字 ．旨定分类ｊ１ｈ标题 ６结论 所列稃序能实 Ｅｊ动绘制Ｅｘｃｅｌ折线 ， ｊ 仃实用 ．。 程序的运仃，既町以 Ｅｘｃｅｌ的Ｖｉｓｕａｌ Ａｘｅｓ（ｘｌＶａｌｕｅ。ｘｌＰｒｉｍａｒｙ）．ＨａｓＴｉｔｌｅ＝Ｔｒｕｅ Ｅｘｉｔ Ｓｕｂ Ｅｎｄ Ｓｕｂ ‘指定 ．数值轴标题 Ａｘｅ ｓ（ｘｌＶａｌｕｅ，ｘｌＰ ｒｉｍａｒｙ）．Ａｘｉ ｓＴｉｔｌｅ． Ｃｈａｒａｃｔｅｒｓ．Ｔｅｘｔ＝”离 浓度（ｐｅｑ／Ｌ）” ‘指 定数值轴标题的文字 ＥｎｄＷｉｔｈ ‘ １ｔ 图表ｆｆ，ＪＩ Ｉ定ｌ义函数 Ｆｔｍｃｔｉｏｎ ｉｎｄ（ｎａｍｅ Ａｓ ｆＳｔｒｉｎｇ）Ａｓ Ｂｏｏｌｅａｎ Ｆｏｒ Ｅａｃｈ ｏｎｅ ｌｎ Ｃｈａｒｔｓ Ｉ ｆ ｏｎｅ．ｎａｍｅ＝ｎａｎｌｅ Ｔｈｅｎ Ｂａｓｉｃ编辑器 ｆｉ运行，也¨Ｊ 以通过 菜 或ｌ： Ｗｉｔｈ ＡｃｔｉｖｅＣｈａｒｔ Ａｘｅｓ（ｘＩＣａｔｅｇｏｒｙ） ．栏建立卡Ｈ应的运行 Ｉ［１ｌ令喊按钮求运行，当然 也 Ｔ建盘一个商体．通过命令按 米运行。 趟 Ｊ 本文 ＾的范围，不｝Ｉｆ赘述。 ＨａｓＭａｊｏｒＧｒｉｄｌｉｎｅｓ＝Ｔｒｕｅ ‘指定 示 分类轴的 ．格线 ｉｎｄ＝Ｔｒｕｅ ｆＥｘｉｔ Ｆｕｎｃｔｉｏｎ ＥｎｄＩｌ’ Ｎｅｘｔ ｏｎｅ 作者简介 刘美丽，讲师 研究方向为计算机应用。 ＨａｓＭｉｎｏｒＧｒｉｄｌｉｎｅｓ＝Ｆａｌｓｅ 示分类轴的次刚格线 ＥｎｄＷｉｔｈ Ｗｉｔｈ ＡｃｔｉｖｅＣｈａｒｔ．Ａｘｅｓ（ｘｌＶａｌｕｅ） ｆｉｎｄ＝Ｆａｌｓｅ Ｅｎｄ Ｆｕｎｃｔｉｏｎ 作者单位 长沙环境保护职业技术学院 湖南省长沙市 ４１ ＯＯ０４ ＨａｓＭａｊｏｒＧｒｉｄｌｉｎｅｓ。。Ｔｒｕｅ Ｅｌｅｃｔｒｏｎｉｃ Ｔｅｃｈｎｏｌｏｇｙ＆Ｓｏｆｔｗａｒｅ Ｅｎｇｉｎｅｅｒｉｎｇ电子技术与软件工程・７５
