【Excel】バブルチャートのデータ要素にラベルをつける

こんにちは。Nakaiです。

８月のお盆がこんなに涼しいなんて、嬉しいやら、ちょっと
物足りないやら、、という感じですね。
８月15日の高校野球が雨で順延になったのは、記憶にない
くらいですね。

さて、今日はExcelグラフのお話です。
Excelでデータ分析を行う時に、必須になるのが、散布図や
バブルチャート図の作成ではないでしょうか。

バブルチャートや散布図を作ったら、データ要素にはラベルを
つけましょう。

データラベルを追加をしたら、データラベルの書式設定で、

セルの値のデータの選択をクリックすると
データ範囲の選択ができるダイアログボックスが表示
されます。

きれいなバブルチャートが作成できます。

ただし、このラベルを表示させる機能は、Excel Ver.2013から
追加された機能で、Excel Ver.2007やVer.2010では、通常では
表示できません。

が、マイクロソフトのページに、VBAで追加する方法が
載っています！

Excel2007,2010の散布図やバブルチャートでラベルを
表示するVBA

グラフシートにグラフを移動させてから下記のコードを
実行すると、データ系列の数値が表示されます。
お試しください。

※バブルチャートをきれいに作成するには、系列の指定を
正しく後から設定する必要があります。
パソコンスクールISAでは、Excelビジネス活用のテキストで
学習できます。
VBAはこちらで学習できます。
興味のある方はお問合せください。

Sub AttachLabelsToPoints()

‘Dimension variables.
Dim Counter As Integer, ChartName As String, xVals As String

‘ Disable screen updating while the subroutine is run.
Application.ScreenUpdating = False

‘Store the formula for the first series in “xVals”.
xVals = ActiveChart.SeriesCollection(1).Formula

‘Extract the range for the data from xVals.
xVals = Mid(xVals, InStr(InStr(xVals, “,”), xVals, _
Mid(Left(xVals, InStr(xVals, “!”) – 1), 9)))
xVals = Left(xVals, InStr(InStr(xVals, “!”), xVals, “,”) – 1)
Do While Left(xVals, 1) = “,”
xVals = Mid(xVals, 2)
Loop

‘Attach a label to each data point in the chart.
For Counter = 1 To Range(xVals).Cells.Count
ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
True
ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
Next Counter

End Sub

パソコンスクールISA船橋FACE校　Nakai

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

パソコン教室ISAのトップページへ

パソコン教室ISA　船橋FACE校ページへ

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

Follow me!