excel表格散点图标签怎么设置

1.如何在 Excel 中使用宏为 xy 散点图或气泡图中的数据点添加标签

本文中的示例代码假定数据及关联的标签按照以下格式排列在工作表中： "第一列包含数据标签。"第二列包含 xy（散点）图的 x 值。"第三列及后面的列包含 xy（散点）图的 y 值。注意：虽然提供的示例仅包含一列 y 值数据，但您可以使用多列数据。

要使用本文中的宏，请使用下面的数据创建一个图表： A1：标签 B1:X 值 C1:Y 值 A2:DataPoint1 B2:12 C2:5 A3:DataPoint2 B3:9 C3:7 A4:DataPoint3 B4:5 C4:3 A5:DataPoint4 B5:4 C5:8 A6:DataPoint5 B6:1 C6:4注意：表不应包含空列，包含数据标签的列不应与包含 x 值的列分开。标签和值必须完全按照本文所介绍的格式排列。（左上角的单元格不必非得为单元格 A1。）

要向xy（散点）图中的数据点附加文本标签，请按照下列步骤操作： 1.在包含示例数据的工作表中，选择单元格区域 B1:C6，然后单击插入菜单上的图表。2.在“图表向导 – 4 步骤之 1 –图表类型”对话框中，单击标准类型选项卡。在“图表类型”下，单击 XY 散点图，然后单击下一步。3.在“图表向导 – 4 步骤之 2 –图表源数据”对话框中，单击数据区域选项卡。在“系列产生在”下，单击列，然后单击下一步。4.在“图表向导 – 4 步骤之 3 –图表选项”对话框中，单击下一步。5.在“图表向导 – 4 步骤之 4 –图表位置”对话框中，单击“作为新工作表插入”选项，然后单击完成。6.按Alt+F11 启动 Visual Basic 编辑器。7.在插入菜单上，单击模块。在模块工作表中键入下面的示例代码：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 Sub9.按Alt+Q 返回 Microsoft Excel。10.切换到图表工作表。11. 在工具菜单上，指向宏，然后单击宏。单击 AttachLabelsToPoints，然后单击运行以运行该宏。

2.怎么为Excel散点图添加文本数据标签

打开数据集，选择数值型数据，插入“散点图”，即获得该数据集的图形。

Excel直接获得的散点图比较展示效果不太理想，需要自己手动做一些调整。选择水平坐标轴，邮件，选择“设置坐标轴格式”，将坐标轴选项的最小值调整为1.5，最大值调整为2.0。

同样的对纵轴也进行同样的设置，效果见下图。由于Excel不能直接添加标签，我们需要自己编写宏来完成这个过程。

因为这里有供参考的添加气泡图系列文本标签，我们首先将图表类型更改为气泡图。按“Alt+F11“键，打开VBA编辑器。

输入下列代码：Sub AddLabel（)'为气泡图数据系列添加文本数据标签'Dim rRng As RangeDim i As IntegerOn Error GoTo line1Set rRng = Application.InputBox（"选择包含数据标签的列区域"， Title：="选择区域"， Type:=8）Selection.ApplyDataLabelsFor i = 1 To rRng.Rows.CountSelection.Points(i).DataLabel.Text = rRng.Item(i).TextNext iline1:End Sub代码输入完后，点击运行按钮，出现”选择包含数据标签的列区域“提示框。在提示框内选择文本数据值，点击确定，这时，再将数据类型更改为散点图。

点击确定。完成。