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

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

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

    Excel 2007/2010：

    以Excel 2010為例。

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

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

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

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

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

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

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

    最后完成氣泡圖。

    Excel 2003：

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

    Excel在當(dāng)前工作表中插入一個(gè)氣泡圖。

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

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

二、在氣泡圖中為數(shù)據(jù)點(diǎn)添加文本數(shù)據(jù)標(biāo)簽

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

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

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

Sub AddLabel()
'為氣泡圖數(shù)據(jù)系列添加文本數(shù)據(jù)標(biāo)簽
Dim rRng As Range
Dim i As Integer
On Error GoTo line1
Set rRng = Application.InputBox("選擇包含數(shù)據(jù)標(biāo)簽的列區(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工作表界面，單擊氣泡圖中某個(gè)數(shù)據(jù)系列點(diǎn)選擇整個(gè)數(shù)據(jù)系列，如圖：

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

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

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

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

    然后執(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)建一個(gè)三維氣泡圖，并將各行數(shù)據(jù)設(shè)置為不同的系列，從而在圖例中顯示各系列名稱(chēng)。