使用VBA设计图表.pptxVIP

使用VBA设计图表 Excel VBA知识基础 绘制甘特图 调整图表同步 更改图表源数据 在用户窗体中显示图表 Excel VBA知识基础 在使用Excel VBA设计图表之前，需要先掌握两个概念： （1）Chart对象模型 为了编写生成或处理图表的VBA代码，必须要理解图表的对象层次结构概念，也就是所谓的Chart对象模型。在Chart对象层次结构中位于最顶层的是Application对象，Application对象包含Workbook对象，Workbook对象包含Worksheet对象，Worksheet对象包含ChartObject对象，ChartObject对象包含Chart对象，Chart对象包含ChartTitle对象，而ChartTitle对象包含Text属性，该属性用于存储显示图表标题的文本。 VBA代码必须准确地遵循上述对象模型，比如要把图表的标题设为（2）SERIES公式 图表是由任意数量系列组成的，并由SERIES公式中的单元格引用来确定每个系列使用的数据。当在图表中选中某个数据系列时，SERIES公式将出现在公式编辑器中。但这并不是真正的公式，用户既不能在单元格中使用它，也不能在SERIES公式中使用工作表函数，但用户却可以在公式编辑器中编辑SERIES公式的参数。 绘制甘特图 甘特图表示项目中完成每项活动所需时间的条形图，横轴表示时间，纵轴表示要安排的活动，线条表示在整个期间内计划和实际的完成情况。 甘特图直观地表明了什么时候任务应该开始进行，并与实际的过程进行比较，是一种虽然简单但非常有用的工具，它使得管理者能够很容易地搞清什么活动已经在进行，以及评估哪些活动提前完成了、可能推迟或按进度计划在进行。 创建堆积条形图 设置数据系列格式 认识录制的宏代码 指定创建图表的宏 设置数据系列格式 绘制甘特图 根据创建的堆积条形图，对图表中的数据系列格式进行相关设置，即可以此来绘制出甘特图。具体的操作步骤如下： 选中需要编辑的图表之后，执行如图10-20所示的【图表工具】→【布局】→【坐标轴】→【坐标轴】→【主要横坐标轴】→【其他主要横坐标轴选项】命令项，即可打开【设置坐标轴格式】对话框。 选择“坐标轴选项”项之后，在右边的“坐标轴选项”区域中设置“最小值”为38602，“最大值”为“38777”，将“主要刻度单位”设为20，“次要刻度单位”设为4，并分别点选以上各项旁边的“固定”单选按钮。 在“纵坐标轴交叉”区域中点选“坐标轴值”单选框，再在右边的文本框中键入“38602”，详细的设置方法可参照如图10-21所示中进行。 【提示】 将X轴刻度的最小值和最大值分别设置为“38602”和“38777”，是因为在工作表中列举的起始日期，对应的常规数值最小值和最大值分别是“38602”和“38777”，用户在使用时可根据自己选取的数值来设置这个刻度的最小值和最大值。 设置数据系列格式 绘制甘特图 在【设置坐标轴格式】对话框中选择“数字”选项之后，在右侧的“类别”列表框中选择“日期”选项，在“类型”列表框中选择“*2001-3-14”选项，最后单击【关闭】按钮，即可将横坐标轴的刻度设置为标准日期格式， 执行【图表工具】→【布局】→【坐标轴】→【坐标轴】→【主要纵坐标轴】→【其他主要纵坐标轴选项】命令项，即可打开【设置坐标轴格式】对话框。 选择“坐标轴选项”项之后，在右侧勾选“逆序类别”复选框，点选“最大分类”和“刻度线之间”单选框，最后单击【关闭】按钮，即可得到效果。 右击“起始日期”系列，在弹出的快捷菜单中选择【设置数据系列格式】命令项，即可打开【设置数据系列格式】对话框。 选择“填充”选项，在右侧的“填充”区域中点选“无填充”单选框，并选择“边框颜色”选项，在右侧的“边框颜色”区域中点选“无线条”单选框。最后单击【关闭】按钮，即可完成此项设置。 根据此时绘制完成的甘特图，调整图表的大小和位置，即可得到如图10-29所示的效果。 图10-20 执行菜单命令 图10-21 【设置坐标轴格式】对话框 图10-29 绘制完成的甘特图 调整图表同步 创建多个数据图表 实现数据图表同步 更改图表源数据 基于活动单元格更改图表数据源 使用组合框更改图表数据源 在用户窗体中显示图表 在用户窗体中显示图表有两种方法，一种是把图表保存为GIF文件，然后将这个GIF文件加载到用户窗体上的图像控件中，另一种方法是使用OWC(Office Web Compontents)的ChartSpace控件，这里将详细介绍第一种方法，即首先使用活动单元格所在行中的数据创建一个图表，然后把这个图表保存为GIF文件，并且将其加载到图像控件中。