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

《PPT及EXCEL各类图表制作教程.ppt》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、数据展示及图表制作黑龙江分院规划设计部杨丽2011.04目录1、数据展示2、图表制作条形图柱状图饼图面积图两轴线柱图雷达图散点图气泡图在第一部分，列举了部分图表，大部分图表只要双击，填上数据，就可以直接用。在第二部分，详细说明了各类图表的制作过程，相信可以一学即会。另外，在文档的最后，附上一小程序，目的是在气泡图或散点图上加数据标志，很方便。数据展示各类指标之间的比较数据展示同一指标的年度变化数据展示指标内部结构数据展示指标内部结构数据展示指标内部结构的年度变化数据展示2009年资本开支降低，其中话务网投资较上年减少24%

2、指标内部结构的年度变化（近两年）数据展示两轴线-柱图，两个坐标轴返回数据展示增长率人均GDP(元)交点为全国水平2009年全国各省人均GDP及其增长率散点图散点图，四个象限，二维数据展示人均收入（元）移动普及率高收入、高普及率区域低收入、高普及率区域低收入、低普及率区域高收入、低普及率区域各地市人均收入、移动用户普及率及人口规模气泡图气泡图，四个象限，可表示三个维度数据展示雷达图图表制作插入图表01输入数据02调格式03图表制作插入图表-以两轴线-柱图为例01方法一方法二插入图表后，PPT默认的图表格式：图表制作输入数据0

3、2双击图表，会出现数据工作表，或者在空白区域点右键，选择数据工作表，输入数据图表制作调格式--图表类型03双击图表，在空白区域点右键，选择“图表类型”，选择“自定义类型”，选择“两轴线-柱图”示例图表制作调格式—设置数据系列格式03双击图表，在某一数据系列上点右键，选择“设置数据系列格式”。注意：图表中一共有四个数据系列，其中两个比较明显，可直接在图上找到进行设置，另外两个由于坐标轴的关系，用鼠标很难找到，此时可先选中某一明显系列，之后用键盘上的“上下左右键”进行选择，当找到某一系列后，用键盘上的快捷键代替鼠标右键，设置数

4、据格式一共四个数据系列（农村ARPU，全省ARPU，农村资费，全省资费），每个都要“设置数据系列格式”，这里，农村ARPU和全省ARPU两个数据系列坐标轴设置为主坐标轴，农村资费和全省资费两个数据系列设置为次坐标轴图表制作调格式—数据的图表类型03农村ARPU和全省ARPU两个系列的图表类型是“标准类型”中的“柱形图”，农村资费和全省资费两个系列的图表类型是“标准类型”中的“折线图”方法同上，双击图表，在某一数据系列上点右键，选择“图表类型”图表制作调格式—图表选项03剩下的工作主要是美化图表，双击图表，空白区域点右键，选

5、择“图表选项”，常用的是“标题”，“图列”，“数据标签”图表制作调格式—设置数据系列格式03农村ARPU，全省ARPU调完颜色，对资费进行调色图表制作调格式—设置图表区格式、设置绘图区格式03双击图表，空白区域单击右键，选择“设置图表区格式”双击图表，在图表区单击右键，选择“设置绘图区格式”图表制作调格式—设置图例格式03双击图表，鼠标在图例区单击右键，选择‘设置图例格式“图表制作调格式—坐标轴标题格式、坐标轴格式03双击图表，鼠标在坐标轴标题（之前设置坐标轴单位为元）单击右键，选择‘设置图例格式“图表制作--散点图制作（

6、Excel）注意:散点图时,刚开始的数据选择区域只选择数据,左边的名称以及上边的指标名不要选!图表制作--散点图制作（Excel）图表制作--散点图制作（Excel）按Alt+F11启动VisualBasic编辑器。在插入菜单上，单击模块。在模块工作表中键入代码按Alt+Q返回MicrosoftExcel。图表制作--散点图制作（Excel）图表制作—气泡图制作（Excel）注意:做气泡图时,与散点图一样,刚开始的数据选择区域只选择数据,左边的名称以及上边的指标名不要选!1只选表中涂绿色区域即可.2选择气泡图,然后一直

7、点击下一步,直到完成即可.3利用前面交的方法,进行改坐标值,以及调整横纵坐标的交叉点.对图表进行美化等工作.最后就差在每个气泡边加上地址名称了.这与散点图一样,通过一个程序来完成.请参考第26页的步骤.程序已经附在PPT的最后.谢谢附：散点图或气泡图中的数据点添加标签的代码SubAttachLabelsToPoints()'Dimensionvariables.DimCounterAsInteger,ChartNameAsString,xValsAsString'Disablescreenupdatingwhilethe

8、subroutineisrun.Application.ScreenUpdating=False'Storetheformulaforthefirstseriesin"xVals".xVals=ActiveChart.SeriesCollection(1).Formula'Extracttherange