EXCEL气泡图怎么做？

原始图标发上来呀，有什么需求写明白呀。做气泡图很简单，插入-图表--其他图表--气泡图就行了

如下图所示，选择【图标向导】---【气泡图】即可设置。

找到一段代码，你先试试
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 Sub

看图