【VBA】制作散点图及打标签VBA

1、散点图的制作必须只选择xy轴对应的数据，不能选中标签。

2、调整xy轴交叉点，改为四个象限。

3、通过菜单移动散点图到新表。

4、运行宏，打上文本标签。

VBA如下

 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().Formula

    'Extract the range for the data from xVals.
    xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
       Mid(Left(xVals, InStr(xVals, "!") - ), )))
    xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - )
    Do While Left(xVals, ) = ","
       xVals = Mid(xVals, )
    Loop

    'Attach a label to each data point in the chart.
    For Counter =  To Range(xVals).Cells.Count
      ActiveChart.SeriesCollection().Points(Counter).HasDataLabel = _
          True
       ActiveChart.SeriesCollection().Points(Counter).DataLabel.Text = _
          Range(xVals).Cells(Counter, ).Offset(, -).Value
    Next Counter

 End Sub