1、散点图的制作必须只选择xy轴对应的数据,不能选中标签。
2、调整xy轴交叉点,改为四个象限。
3、通过菜单移动散点图到新表。
4、运行宏,打上文本标签。
VBA如下
1 Sub AttachLabelsToPoints() 2 3 'Dimension variables. 4 Dim Counter As Integer, ChartName As String, xVals As String 5 6
1、散点图的制作必须只选择xy轴对应的数据,不能选中标签。
2、调整xy轴交叉点,改为四个象限。
3、通过菜单移动散点图到新表。
4、运行宏,打上文本标签。
VBA如下
1 Sub AttachLabelsToPoints() 2 3 'Dimension variables. 4 Dim Counter As Integer, ChartName As String, xVals As String 5 6