PPT及EXCEL各类图表制作教程

null数据展示及图制作 数据展示及图表制作 黑龙江分院规划设计部 杨丽 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） 图表制作--散点图制作（Excel） 图表制作 --散点图制作（Excel） 图表制作 --散点图制作（Excel） 按 Alt+F11 启动 Visual Basic 编辑器。在插入菜单上，单击模块。在模块工作表中键入代码 按 Alt+Q 返回 Microsoft Excel。图表制作--散点图制作（Excel） 图表制作--散点图制作（Excel） 图表制作—气泡图制作（Excel） 图表制作—气泡图制作（Excel） 注意:做气泡图时,与散点图一样,刚开始的数据选择区域只选择数据,左边的名称以及上边的指标名不要选!1\只选表中涂绿色区域即可.2\选择气泡图,然后一直点击下一步,直到完成即可.3\利用前面交的方法,进行改坐标值,以及调整横纵坐标的交叉点.对图表进行美化等工作.最后就差在每个气泡边加上地址名称了.这与散点图一样,通过一个程序来完成.请参考第26页的步骤.程序已经附在PPT的最后.null谢 谢附：散点图或气泡图中的数据点添加标签的代码附：散点图或气泡图中的数据点添加标签的代码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 ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _ Range(xVals).Cells(Counter, 1).Offset(0, -1).Value Next Counter End Sub