氣泡圖則可以顯示三組數據之間的關系。氣泡圖中沿橫坐標軸（x 軸）方向顯示一組數值數據，沿縱坐標軸（y 軸）方向顯示第二組數值數據，而第三組數值數據則用氣泡的大小來顯示。與散點圖一樣，其三組數據都必須為數值，不同的是氣泡圖中的每個數據點都對應三個數據。
一、氣泡圖的基本制作步驟
假如某公司的部分產品有如圖所示的三組數據，數據在A1:D7區域中，要用氣泡圖來顯示其銷售量、增長率及市場份額三者之間的關系。
Excel 2007/2010：
以Excel 2010為例。
1.選擇包含數值的區域，即B2:D7區域。與制作其他圖表（如柱形圖）不同，制作柱形圖時，選擇數據區域中的某個單元格再插入圖表即可，但在制作氣泡圖時，如果選擇了標題所在的第一行，氣泡圖中的數據可能顯示不正確。
2.在功能區中選擇“插入”選項卡，在“圖表”組中單擊“其他圖表”，在“氣泡圖”下選擇“氣泡圖”或“三維氣泡圖”，本例選擇“三維氣泡圖”。Excel會在工作表中添加一個氣泡圖。
3.右擊某個數據系列點，選擇“設置數據系列格式”，彈出“設置數據系列格式”對話框。在Excel 2010中可直接雙擊某個數據系列點打開該對話框。選擇“填充”，勾選“依數據點著色”，這樣給每個數據點設置不同的顏色。
下面的步驟可根據實際需要進行設置。
4.修改或添加網格線。選擇圖表，在功能區中選擇“圖表工具-布局”選項卡，在坐標軸組中單擊“網格線→主要橫網格線→其他主要橫網格線選項”，彈出“設置主要網格線格式”對話框，選擇“線型”，在“短劃線類型”右側的下拉列表中選擇某種線型，如“方點”。
用同樣的方法設置主要縱網格線。
5.修改氣泡的大小表示。按第3步中的方法打開“設置數據系列格式”對話框，選擇“系列選項”，在右側區域中根據需要選擇按“氣泡面積”或“氣泡寬度”來表示氣泡大小，還可將氣泡大小按比例縮放。此處將氣泡大小縮小為原來的80%。
最后完成氣泡圖。
Excel 2003：
1.選擇包含數值的區域，即B2:D7區域。單擊菜單“插入→圖表”，彈出“圖表向導”對話框。在對話框中選擇圖表類型為“氣泡圖”，子圖表類型為“三維氣泡圖”，單擊“完成”。
Excel在當前工作表中插入一個氣泡圖。
2.雙擊某個數據系列點，彈出“數據系列格式”對話框，選擇“選項”，根據需要設置氣泡大小，此處將氣泡大小縮小為原來的80%，勾選“依數據點分色”，單擊“確定”。
3.選擇圖表，單擊菜單“圖表→圖表選項→網格線”，在“數值（X）軸”下勾選“主要網格線”，單擊“確定”。在圖表中分別雙擊“數值（X）軸主要網格線”和“數值（Y）軸主要網格線”，在彈出的“網格線”格式對話框中設置網格線樣式。最后根據需要修改圖表背景顏色、調整圖表大小等。
二、在氣泡圖中為數據點添加文本數據標簽
有時我們需要在氣泡圖中給每個數據點添加文本數據標簽，由于氣泡圖中的三組數據都為數值，在氣泡圖中給數據點添加數據標簽時，數據標簽也顯示為數值，有些不太直觀。例如在上圖中，我們就希望給每個數據點添加A2:A7區域所包含的“產品代號”文本標簽：
Excel沒有提供直接的方法來給氣泡圖添加文本數據標簽。當氣泡圖中僅包含一個系列時，可以用下面的VBA代碼來給所選擇的數據系列添加指定區域中的文本數據標簽。方法是：
1.按Alt+F11，打開VBA編輯器，在代碼窗口中粘貼下列代碼：
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
2.返回Excel工作表界面，單擊氣泡圖中某個數據系列點選擇整個數據系列，如圖：
按Alt+F8，打開“宏”對話框，選擇“AddLabel”宏并執行。宏運行后會彈出一個“選擇區域”對話框，用鼠標選擇數據標簽所在的列區域，如本例中的A2:A7區域，選擇列區域時確保所選區域包含的單元格數量與圖表數據系列點數量相同，單擊“確定”即可。
三、將文本添加到氣泡圖的圖例中
如上圖所示，當氣泡圖只包含一個數據系列，并選擇“依數據點著色”時，圖例中的數據點名稱都為數值格式。如果要在圖例中顯示數據區域第一列的文本內容，如“產品代號”，可以在氣泡圖中將每一行數據作為一個數據系列，并指定每個數據系列的名稱為第一列中的各個文本，Excel會自動在圖例中顯示這些文本內容。
但這種方法在數據較多時比較繁瑣，如果用VBA代碼來完成則較為快捷。在Excel 2007/2010中，如果數據區域在相鄰的四列中，要設置第一列為圖例中顯示的文本內容，第二列為x軸，第三列為y軸，第四列為氣泡大小，選擇數據區域中不包含第一行標題的四列，如圖：
然后執行下面的代碼：
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中執行下列代碼：
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
上述代碼根據所選區域數據創建一個三維氣泡圖，并將各行數據設置為不同的系列，從而在圖例中顯示各系列名稱。
浙公網安備 33010802003509號
杭州講師網絡科技有限公司
