Excel中制作氣泡圖及為氣泡圖的系列數(shù)據(jù)點(diǎn)添加文本數(shù)據(jù)標(biāo)簽（Excel做氣泡圖）

Excel中的散點(diǎn)圖可以顯示兩組數(shù)據(jù)之間的關(guān)系，而氣泡圖則可以顯示三組數(shù)據(jù)之間的關(guān)系。氣泡圖和三維氣泡圖 氣泡圖與 XY 散點(diǎn)圖類似，但是它們對(duì)成組的三個(gè)數(shù)值而非兩個(gè)數(shù)值進(jìn)行比較。第三個(gè)數(shù)值確定氣泡數(shù)據(jù)點(diǎ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ù)。本文介紹在Excel中制作氣泡圖的方法以及快速為氣泡圖的系列數(shù)據(jù)點(diǎn)添加文本數(shù)據(jù)標(biāo)簽和快速在氣泡圖的圖例中添加文本的方法。

簡(jiǎn)述

制作氣泡圖，在Exce的不同版本中各有不同，但大同小異，下面以Excel 2010為例為大家介紹下具體的制作步驟。有時(shí)我們需要在氣泡圖中給每個(gè)數(shù)據(jù)點(diǎn)添加文本數(shù)據(jù)標(biāo)簽，由于Excel沒(méi)有提供直接的方法來(lái)給氣泡圖添加文本數(shù)據(jù)標(biāo)簽，所以可以用VBA代碼來(lái)給所選擇的數(shù)據(jù)系列添加指定區(qū)域中的文本數(shù)據(jù)標(biāo)簽，如果要在圖例中顯示數(shù)據(jù)區(qū)域第一列的文本內(nèi)容，如“產(chǎn)品代號(hào)”，也可使用VBA代碼來(lái)完成。

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

假如某公司的部分產(chǎn)品有如圖所示的三組數(shù)據(jù)，數(shù)據(jù)在A1:D7區(qū)域中，要用氣泡圖來(lái)顯示其銷售量、增長(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ì)話框。在Excel 2010中可直接雙擊某個(gè)數(shù)據(jù)系列點(diǎn)打開(kāi)該對(duì)話框。選擇“填充”，勾選“依數(shù)據(jù)點(diǎn)著色”，這樣給每個(gè)數(shù)據(jù)點(diǎn)設(shè)置不同的顏色。

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

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

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

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

最后完成氣泡圖。

Excel 2003：

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

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

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

3.選擇圖表，單擊菜單“圖表→圖表選項(xiàng)→網(wǎng)格線”，在“數(shù)值（X）軸”下勾選“主要網(wǎng)格線”，單擊“確定”。在圖表中分別雙擊“數(shù)值（X）軸主要網(wǎng)格線”和“數(shù)值（Y）軸主要網(wǎng)格線”，在彈出的“網(wǎng)格線”格式對(duì)話框中設(shè)置網(wǎng)格線樣式。最后根據(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ù)值，有些不太直觀。例如在上圖中，我們就希望給每個(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 RangeDim i As IntegerOn Error GoTo line1Set rRng = Application.InputBox("選擇包含數(shù)據(jù)標(biāo)簽的列區(qū)域", Title:="選擇區(qū)域", Type:=8)

Selection.ApplyDataLabelsFor i = 1 To rRng.Rows.CountSelection.Points(i).DataLabel.Text = rRng.Item(i).TextNext iline1:End Sub

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

按Alt+F8，打開(kāi)“宏”對(duì)話框，選擇“AddLabel”宏并執(zhí)行。宏運(yùn)行后會(huì)彈出一個(gè)“選擇區(qū)域”對(duì)話框，用鼠標(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)名稱都為數(shù)值格式。如果要在圖例中顯示數(shù)據(jù)區(qū)域第一列的文本內(nèi)容，如“產(chǎn)品代號(hào)”，可以在氣泡圖中將每一行數(shù)據(jù)作為一個(gè)數(shù)據(jù)系列，并指定每個(gè)數(shù)據(jù)系列的名稱為第一列中的各個(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/2010Dim objCht As ChartDim i As IntegerDim iRows As Integer, iCols As IntegerDim rRng As RangeSet rRng = SelectioniRows = rRng.Rows.CountiCols = rRng.Columns.Count

If iCols = 4 ThenSet objCht = ActiveSheet.ChartObjects.Add(100, 80, 400, 250).ChartFor i = 1 To iRowsWith 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 WithNextEnd If

End Sub

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

Sub AddBubbleFor2003()'適用于Excel2003Dim objCht As ChartDim rRng As RangeDim i As IntegerDim iRows As Integer, iCols As Integer, irow As Integer, icol As IntegerOn Error GoTo line1Set rRng = SelectioniRows = rRng.Rows.CountiCols = rRng.Columns.Countirow = rRng.Rowicol = rRng.Column

If iCols = 4 ThenrRng.Offset(0, 1).Resize(1, 3).SelectSet objCht = ActiveSheet.ChartObjects.Add(100, 80, 450, 250).ChartobjCht.SetSourceData Source:=Selection

For i = 1 To iRowsWith 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 + 3End WithNextEnd If

line1:End Sub

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

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。