入手操作excel2007软件过程里,常要给散点图加上标签,那么excel2007散点图究竟是如何添加文字标签的呢?还不了解相关操作的朋友不要错过小编今天带来的教程哦。
打开数据集,选择数值型数据,插入“散点图”,即获得该数据集的图形。
输入下列代码:
Sub AddLabel()
‘为气泡图数据系列添加文本数据标签’
Dim rRng As Range
Dim i As Integer
On Error GoTo line1
Set rRng = Application.InputBox(“选择包含数据标签的列区域”, Title:=”选择区域”, Type:=8)
Selection.ApplyDataLabels
For i = 1 To rRng.Rows.Count
Selection.Points(i).DataLabel.Text = rRng.Item(i).Text
Next i
line1:
End Sub
代码输入完后,点击运行按钮,出现”选择包含数据标签的列区域“提示框。