EXCEL散点图标签添加处理方法.doc

《EXCEL散点图标签添加处理方法.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、EXCEL散点图标签添加处理方法为了处理聚类分析或分析变量之间的相关关系时，我们需要在EXCEL中画散点图，但画散点图之后，为了更为方便查看散点对应的项目，我们希望能够显示每一个三点的标签。下面通过VBA程序遍历的方法实现添加标签。该方法适用前提是对VBA有基本的理解Sub散点图标签处理()''散点图标签处理代码''插入散点图'Range("b3:C40").Select'ActiveSheet.Shapes.AddChart.Select'ActiveChart.SetSourceDataSource:=Range("Sheet1!$b$3:$C$40")'ActiveChart.

2、ChartType=xlXYScatter'ActiveChart.PlotArea.Select'ActiveSheet.ChartObjects("图表1").Activate'ActiveChart.SeriesCollection(1).Points(37).SelectForcounter=1To37ActiveChart.SeriesCollection(1).Points(counter).HasDataLabel=TrueActiveChart.SeriesCollection(1).Points(counter).DataLabel.Text=Range("a"&(

3、2+counter)).ValueNextcounterEndSub