及EXCEL各类图表制作教程.ppt

数据展示及图表制作,黑龙江分院规划设计部 杨丽 2011.04,目录,1、数据展示 2、图表制作 条形图 柱状图 饼图 面积图 两轴线柱图 雷达图 散点图 气泡图,在第一部分，列举了部分图表，大部分图表只要双击，填上数据，就可以直接用。,在第二部分，详细说明了各类图表的制作过程，相信可以一学即会。另外，在文档的最后，附上一小程序，目的是在气泡图或散点图上加数据标志，很方便 。,数据展示,各类指标之间的比较,数据展示,同一指标的年度变化,数据展示,指标内部结构,数据展示,指标内部结构,数据展示,指标内部结构的年度变化,数据展示,2009年资本开支降低，其中话务网投资较上年减少24%,指标内部结构的年度变化（近两年）,数据展示,两轴线-柱图，两个坐标轴,返回,数据展示,增长率,人均GDP(元),交点为全国水平,2009年全国各省人均GDP及其增长率散点图,散点图，四个象限，二维,数据展示,人均收入（元）,移动普及率,高收入、高普及率区域,低收入、高普及率区域,低收入、低普及率区域,高收入、低普及率区域,各地市人均收入、移动用户普及率及人口规模气泡图,气泡图，四个象限，可表示三个维度,数据展示,雷达图,图表制作,插入图表,01,输入数据,02,调格式,03,图表制作,插入图表-以两轴线-柱图为例,01,方法一,方法二,插入图表后，PPT默认的图表格式：,图表制作,输入数据,02,双击图表，会出现数据工作表，或者在空白区域点右键，选择数据工作表，输入数据,图表制作,调格式-图表类型,03,双击图表，在空白区域点右键，选择“图表类型”，选择“自定义类型”，选择“两轴线-柱图”,示例,图表制作,调格式设置数据系列格式,03,双击图表，在某一数据系列上点右键，选择“设置数据系列格式”。注意：图表中一共有四个数据系列，其中两个比较明显，可直接在图上找到进行设置，另外两个由于坐标轴的关系，用鼠标很难找到，此时可先选中某一明显系列，之后用键盘上的“上下左右键”进行选择，当找到某一系列后，用键盘上的快捷键代替鼠标右键，设置数据格式,一共四个数据系列（农村ARPU，全省ARPU，农村资费，全省资费），每个都要“设置数据系列格式”，这里，农村ARPU和全省ARPU两个数据系列坐标轴设置为主坐标轴，农村资费和全省资费两个数据系列设置为次坐标轴,图表制作,调格式数据的图表类型,03,农村ARPU和全省ARPU两个系列的图表类型是“标准类型”中的“柱形图”，农村资费和全省资费两个系列的图表类型是“标准类型”中的“折线图”,方法同上，双击图表，在某一数据系列上点右键，选择“图表类型”,图表制作,调格式图表选项,03,剩下的工作主要是美化图表，双击图表，空白区域点右键，选择“图表选项”，常用的是“标题”，“图列”，“数据标签”,图表制作,调格式设置数据系列格式,03,农村ARPU，全省ARPU调完颜色，对资费进行调色,图表制作,调格式设置图表区格式、设置绘图区格式,03,双击图表，空白区域单击右键，选择“设置图表区格式”,双击图表，在图表区单击右键，选择“设置绘图区格式”,图表制作,调格式设置图例格式,03,双击图表，鼠标在图例区单击右键，选择设置图例格式“,图表制作,调格式坐标轴标题格式、坐标轴格式,03,双击图表，鼠标在坐标轴标题（之前设置坐标轴单位为元）单击右键，选择设置图例格式“,图表制作-散点图制作（Excel）,注意:散点图时,刚开始的数据选择区域只选择数据,左边的名称以及上边的指标名不要选!,图表制作-散点图制作（Excel）,图表制作 -散点图制作（Excel）,按 Alt+F11 启动 Visual Basic 编辑器。在插入菜单上，单击模块。在模块工作表中键入代码 按 Alt+Q 返回 Microsoft Excel。,图表制作-散点图制作（Excel）,图表制作气泡图制作（Excel）,注意:做气泡图时,与散点图一样,刚开始的数据选择区域只选择数据,左边的名称以及上边的指标名不要选!,1只选表中涂绿色区域即可.,2选择气泡图,然后一直点击下一步,直到完成即可.,3利用前面交的方法,进行改坐标值,以及调整横纵坐标的交叉点.对图表进行美化等工作.最后就差在每个气泡边加上地址名称了.这与散点图一样,通过一个程序来完成.请参考第26页的步骤.程序已经附在PPT的最后.,谢 谢,附：散点图或气泡图中的数据点添加标签的代码,Sub AttachLabelsToPoints() Dimension variables. Dim Counter As Integer, ChartName As String, xVals As String Disable screen updating while the subroutine is run. Application.ScreenUpdating = False Store the formula for the first series in “xVals“. xVals = ActiveChart.SeriesCollection(1).Formula Extract the range for the data from xVals. xVals = Mid(xVals, InStr(InStr(xVals, “,“), xVals, _ Mid(Left(xVals, InStr(xVals, “!“) - 1), 9) xVals = Left(xVals, InStr(InStr(xVals, “!“), xVals, “,“) - 1) Do While Left(xVals, 1) = “,“ xVals = Mid(xVals, 2) Loop Attach a label to each data point in the chart. For Counter = 1 To Range(xVals).Cells.Count ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _ True Activ