開啟資料集,選擇數值型資料,插入“散點圖”,即獲得該資料集的圖形。
Excel直接獲得的散點圖比較展示效果不太理想,需要自己手動做一些調整。選擇水平座標軸,郵件,選擇“設定座標軸格式”,將座標軸選項的最小值調整為1.5,最大值調整為2.0。同樣的對縱軸也進行同樣的設定,效果見下圖。
由於Excel不能直接新增標籤,我們需要自己編寫宏來完成這個過程。因為這裡有供參考的新增氣泡圖系列文字標籤,我們首先將圖表型別更改為氣泡圖。
按“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
開啟資料集,選擇數值型資料,插入“散點圖”,即獲得該資料集的圖形。
Excel直接獲得的散點圖比較展示效果不太理想,需要自己手動做一些調整。選擇水平座標軸,郵件,選擇“設定座標軸格式”,將座標軸選項的最小值調整為1.5,最大值調整為2.0。同樣的對縱軸也進行同樣的設定,效果見下圖。
由於Excel不能直接新增標籤,我們需要自己編寫宏來完成這個過程。因為這裡有供參考的新增氣泡圖系列文字標籤,我們首先將圖表型別更改為氣泡圖。
按“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