办公小技巧:图表类型巧切换

用图表表示数据时,有的数据适合于用柱形图,有的适合于用折线图 , 还有的适合于用饼图 。把每样数据用不同的图表表现出来,比较繁杂 。若用一个图表,根据下拉列表框选择用不同的图表类型表示不同的数据,将会显得紧凑有序 。用定义名称生成图表数据源,借助简单VBA更改图表类型,即可实现这样的效果 。
【办公小技巧:图表类型巧切换】首先,在存放图表数据源工作表的空白位置输入下拉菜单所需要的内容 。如在P1:P2单元格中输入月份、地区 。选择“开发工具”选项卡,点击“插入→ActiveX控件→组合框”,在工作表合适位置画出一个组合框,选中组合框,点击“属性” , 在它的属性窗口,LinkedCell处输入“Q1”,ListFillRange处输入“P1:P2”,点击BackColor设置它的背景色 。还可按需设置它的其他属性 。这样,该组合框下拉内容就是P1:P2所显示的内容,点击组合框的内容 , 就会存放在Q1单元格中(图1) 。


办公小技巧:图表类型巧切换



选择“公式”选项卡,点击“名称管理器” , 新建如图所示的6个名称并设置对应的引用位置(图2) 。这样,就可以根据下拉列表的选择确定图表的数据源了 。


办公小技巧:图表类型巧切换



接下来,选择一个空白单元格,插入一个带数据标记的折线图 。右击这个空白图表,选择“选择数据”,在弹出窗口左侧图例项处点击“添加”,在弹出窗口的系列名称处输入“总计”,在系列值处输入“=Sheet1!Y_tmp” , 在水平轴标签处点击“编辑”,在弹出窗口输入“=Sheet1!X_tmp” 。
选择“开发工具”选项卡,在左侧VBAProject窗口中双击图表所在工作表 , 在右侧代码区输入如图所示代码(图3) 。这样,图表类型就会跟随下拉列表的变化而改变了 。


办公小技巧:图表类型巧切换



小提示:
图表类型代码可通过宏录制的方法得到 。先建立一个柱形图 , 点击“开发工具→录制宏”,将柱形图更改为折线图,再点击“停止录制” , 点击“宏”,在弹出窗口选择录制的宏名称,点击“编辑” , 就可以看到更改后的图表类型代码了 。知道代码后,将录制的宏删除掉 。
最后,将组合框置于顶层 , 拖放它到图表的合适位置就可以了(图4) 。


办公小技巧:图表类型巧切换



相关经验推荐