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
上面的程序可以画出标签，但是改不了气泡标签的字体大小，请问如何更改，谢谢！
标签很多，不能手动一个个改！