怎样使用VBA批量修改数据标签？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub修改图表标签()

On Error GoTo err
Dim i As Byte, mystr As String, myrng As Range, mynum As Byte
    mystr=Application.InputBox("请输入图表名称", "修改标签", "图表 1", 10,
    10, , , 2)
    mynum=Application.InputBox("请输入需要修改标签文本之标签数序号",
    "标签序号", "1", 10, 10, , , 1)
    Set myrng=Application.InputBox("请输入目标单元格名称,可以用鼠标选择区域.",
    "引用区域标签", "a1", 10, 10, , , 8)
    ActiveSheet.ChartObjects(mystr).Activate
    ActiveChart.SeriesCollection(mynum).DataLabels.Select
    For i=1 To ActiveChart.SeriesCollection(mynum).Points.Count
    ActiveChart.SeriesCollection(mynum).Points(i).DataLabel.Text=
      myrng.Cells(i, 1).Value
    Next
    Exit Sub
err:
    MsgBox "输入错误!"
End Sub

5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序分别弹出三个对话框，需要输入图表名称、标签序号和新标签所在区域