氣泡圖則可以顯示三組數(shù)據(jù)之間的關(guān)系。氣泡圖中沿橫坐標軸（x 軸）方向顯示一組數(shù)值數(shù)據(jù)，沿縱坐標軸（y 軸）方向顯示第二組數(shù)值數(shù)據(jù)，而第三組數(shù)值數(shù)據(jù)則用氣泡的大小來顯示。與散點圖一樣，其三組數(shù)據(jù)都必須為數(shù)值，不同的是氣泡圖中的每個數(shù)據(jù)點都對應三個數(shù)據(jù)。

一、氣泡圖的基本制作步驟

    假如某公司的部分產(chǎn)品有如圖所示的三組數(shù)據(jù)，數(shù)據(jù)在A1:D7區(qū)域中，要用氣泡圖來顯示其銷售量、增長率及市場份額三者之間的關(guān)系。

    Excel 2007/2010：

    以Excel 2010為例。

    1.選擇包含數(shù)值的區(qū)域，即B2:D7區(qū)域。與制作其他圖表（如柱形圖）不同，制作柱形圖時，選擇數(shù)據(jù)區(qū)域中的某個單元格再插入圖表即可，但在制作氣泡圖時，如果選擇了標題所在的第一行，氣泡圖中的數(shù)據(jù)可能顯示不正確。

    2.在功能區(qū)中選擇“插入”選項卡，在“圖表”組中單擊“其他圖表”，在“氣泡圖”下選擇“氣泡圖”或“三維氣泡圖”，本例選擇“三維氣泡圖”。Excel會在工作表中添加一個氣泡圖。

    3.右擊某個數(shù)據(jù)系列點，選擇“設置數(shù)據(jù)系列格式”，彈出“設置數(shù)據(jù)系列格式”對話框。在Excel 2010中可直接雙擊某個數(shù)據(jù)系列點打開該對話框。選擇“填充”，勾選“依數(shù)據(jù)點著色”，這樣給每個數(shù)據(jù)點設置不同的顏色。

    下面的步驟可根據(jù)實際需要進行設置。

    4.修改或添加網(wǎng)格線。選擇圖表，在功能區(qū)中選擇“圖表工具-布局”選項卡，在坐標軸組中單擊“網(wǎng)格線→主要橫網(wǎng)格線→其他主要橫網(wǎng)格線選項”，彈出“設置主要網(wǎng)格線格式”對話框，選擇“線型”，在“短劃線類型”右側(cè)的下拉列表中選擇某種線型，如“方點”。

    用同樣的方法設置主要縱網(wǎng)格線。

    5.修改氣泡的大小表示。按第3步中的方法打開“設置數(shù)據(jù)系列格式”對話框，選擇“系列選項”，在右側(cè)區(qū)域中根據(jù)需要選擇按“氣泡面積”或“氣泡寬度”來表示氣泡大小，還可將氣泡大小按比例縮放。此處將氣泡大小縮小為原來的80%。

    最后完成氣泡圖。

    Excel 2003：

    1.選擇包含數(shù)值的區(qū)域，即B2:D7區(qū)域。單擊菜單“插入→圖表”，彈出“圖表向?qū)А睂υ捒?。在對話框中選擇圖表類型為“氣泡圖”，子圖表類型為“三維氣泡圖”，單擊“完成”。

    Excel在當前工作表中插入一個氣泡圖。

    2.雙擊某個數(shù)據(jù)系列點，彈出“數(shù)據(jù)系列格式”對話框，選擇“選項”，根據(jù)需要設置氣泡大小，此處將氣泡大小縮小為原來的80%，勾選“依數(shù)據(jù)點分色”，單擊“確定”。

    3.選擇圖表，單擊菜單“圖表→圖表選項→網(wǎng)格線”，在“數(shù)值（X）軸”下勾選“主要網(wǎng)格線”，單擊“確定”。在圖表中分別雙擊“數(shù)值（X）軸主要網(wǎng)格線”和“數(shù)值（Y）軸主要網(wǎng)格線”，在彈出的“網(wǎng)格線”格式對話框中設置網(wǎng)格線樣式。最后根據(jù)需要修改圖表背景顏色、調(diào)整圖表大小等。

二、在氣泡圖中為數(shù)據(jù)點添加文本數(shù)據(jù)標簽

    有時我們需要在氣泡圖中給每個數(shù)據(jù)點添加文本數(shù)據(jù)標簽，由于氣泡圖中的三組數(shù)據(jù)都為數(shù)值，在氣泡圖中給數(shù)據(jù)點添加數(shù)據(jù)標簽時，數(shù)據(jù)標簽也顯示為數(shù)值，有些不太直觀。例如在上圖中，我們就希望給每個數(shù)據(jù)點添加A2:A7區(qū)域所包含的“產(chǎn)品代號”文本標簽：

    Excel沒有提供直接的方法來給氣泡圖添加文本數(shù)據(jù)標簽。當氣泡圖中僅包含一個系列時，可以用下面的VBA代碼來給所選擇的數(shù)據(jù)系列添加指定區(qū)域中的文本數(shù)據(jù)標簽。方法是：

    1.按Alt+F11，打開VBA編輯器，在代碼窗口中粘貼下列代碼：

Sub AddLabel()
'為氣泡圖數(shù)據(jù)系列添加文本數(shù)據(jù)標簽
Dim rRng As Range
Dim i As Integer
On Error GoTo line1
Set rRng = Application.InputBox("選擇包含數(shù)據(jù)標簽的列區(qū)域", Title:="選擇區(qū)域", 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

    2.返回Excel工作表界面，單擊氣泡圖中某個數(shù)據(jù)系列點選擇整個數(shù)據(jù)系列，如圖：

    按Alt+F8，打開“宏”對話框，選擇“AddLabel”宏并執(zhí)行。宏運行后會彈出一個“選擇區(qū)域”對話框，用鼠標選擇數(shù)據(jù)標簽所在的列區(qū)域，如本例中的A2:A7區(qū)域，選擇列區(qū)域時確保所選區(qū)域包含的單元格數(shù)量與圖表數(shù)據(jù)系列點數(shù)量相同，單擊“確定”即可。

    三、將文本添加到氣泡圖的圖例中

    如上圖所示，當氣泡圖只包含一個數(shù)據(jù)系列，并選擇“依數(shù)據(jù)點著色”時，圖例中的數(shù)據(jù)點名稱都為數(shù)值格式。如果要在圖例中顯示數(shù)據(jù)區(qū)域第一列的文本內(nèi)容，如“產(chǎn)品代號”，可以在氣泡圖中將每一行數(shù)據(jù)作為一個數(shù)據(jù)系列，并指定每個數(shù)據(jù)系列的名稱為第一列中的各個文本，Excel會自動在圖例中顯示這些文本內(nèi)容。

    但這種方法在數(shù)據(jù)較多時比較繁瑣，如果用VBA代碼來完成則較為快捷。在Excel 2007/2010中，如果數(shù)據(jù)區(qū)域在相鄰的四列中，要設置第一列為圖例中顯示的文本內(nèi)容，第二列為x軸，第三列為y軸，第四列為氣泡大小，選擇數(shù)據(jù)區(qū)域中不包含第一行標題的四列，如圖：

    然后執(zhí)行下面的代碼：

Sub AddBubble()
'適用于Excel2007/2010
Dim objCht As Chart
Dim i As Integer
Dim iRows As Integer, iCols As Integer
Dim rRng As Range
Set rRng = Selection
iRows = rRng.Rows.Count
iCols = rRng.Columns.Count

If iCols = 4 Then
Set objCht = ActiveSheet.ChartObjects.Add(100, 80, 400, 250).Chart
For i = 1 To iRows
With objCht.SeriesCollection.NewSeries
.ChartType = xlBubble3DEffect
.Name = rRng.Item((i - 1) * 4 + 1)
.XValues = rRng.Item((i - 1) * 4 + 2)
.Values = rRng.Item((i - 1) * 4 + 3)
.BubbleSizes = rRng.Item((i - 1) * 4 + 4)
End With
Next
End If

End Sub

    在Excel 2003中執(zhí)行下列代碼：

Sub AddBubbleFor2003()
'適用于Excel2003
Dim objCht As Chart
Dim rRng As Range
Dim i As Integer
Dim iRows As Integer, iCols As Integer, irow As Integer, icol As Integer
On Error GoTo line1
Set rRng = Selection
iRows = rRng.Rows.Count
iCols = rRng.Columns.Count
irow = rRng.Row
icol = rRng.Column

If iCols = 4 Then
rRng.Offset(0, 1).Resize(1, 3).Select
Set objCht = ActiveSheet.ChartObjects.Add(100, 80, 450, 250).Chart
objCht.SetSourceData Source:=Selection

For i = 1 To iRows
With objCht
.SeriesCollection.NewSeries
.ChartType = xlBubble3DEffect
.SeriesCollection(i).Name = rRng.Item((i - 1) * 4 + 1)
.SeriesCollection(i).XValues = rRng.Item((i - 1) * 4 + 2)
.SeriesCollection(i).Values = rRng.Item((i - 1) * 4 + 3)
.SeriesCollection(i).BubbleSizes = "=" & ActiveSheet.Name & "!R" & irow + i - 1 & "C" & icol + 3
End With
Next
End If

line1:
End Sub

    上述代碼根據(jù)所選區(qū)域數(shù)據(jù)創(chuàng)建一個三維氣泡圖，并將各行數(shù)據(jù)設置為不同的系列，從而在圖例中顯示各系列名稱。