散布図にラベルを追加する

Excelの散布図にラベルを追加するマクロはMicrosoftサポートオンラインの下記記事を参考に。

　http://support.microsoft.com/kb/161513/ja

　http://support.microsoft.com/kb/213750/ja

これより下のは、散布図にラベルをつけるマクロなのだが、系列をピンポイントで指定してその系列だけにラベルをつけるマクロです。

仕様がちょいと変ですが、後日掲載するであろう散布図を含めた複合グラフをつくるために必要となるのでそういうことで。

-------------

アドインを作る

-------------

１．　Excelを新規ブックで起動する。

２．　Alt+F11を押す（Visual Basic Editorが起動する）。

３．　プロジェクトエクスプローラで"VBAProject（Book1）"を選択する。

４．　[挿入]メニュから"標準モジュール"を選択する。

５．　"VBAProject（Book1）"の下に「標準モジュール」というフォルダが作成され、

　　　その下にModule1というものができる。

　　　Module1が選択されていることを確認し、下のコードを丸ごと右側の白いところに貼り付ける。

'---　貼り付けるコード（そのままコピペでOK）　バグってたらごめん、自分で直して。

Sub Auto_Add()
　Dim cmdbr As CommandBar
　Dim cmdbrctrl As CommandBarButton

　Set cmdbr = CommandBars.Add(Name:="グラフ用のマクロ")　'ツールバーの名前、なんでもOK

　'(ボタンを増やす場合はコピーして使う)
'1つ目のボタンの作成（散布図にラベルをつける）
　Set cmdbrctrl = cmdbr.Controls.Add(Type:=msoControlButton)
　With cmdbrctrl
　　.Caption = "散布図を付ける" '　マウスポインタを当てた時に表示されるやつ、なんでもOK

　　.FaceId = 430 '　自分で好きなのを指定してOK
　　.OnAction = "AttachLblPlural" '　ツールバーのボタンを押した時に実行するやつ

　End With

　'ツールバーの表示
　With Application.CommandBars("グラフ用のマクロ")
　　.Visible = True
　　.Position = msoBarTop
　End With
End Sub

Sub AttachLblPlural()
'　散布図にラベルを付ける
　Dim NoSeries As Integer, Counter As Long, xVals As String
　Application.ScreenUpdating = False

　NoSeries = InputBox("散布図の対象系列番号を入力してください。", "系列入力")
　i = CInt(NoSeries)
　If i = "" Then Exit Sub '　InputBoxの値が空だったら処理中止
　If i > 100 Then Exit Sub '　InputBoxの値が100を超えてたら処理中止

' On Error Resume Next
　'　グラフの数式をxValsに入れる
　xVals = ActiveChart.SeriesCollection(i).Formula

　'　グラフの数式からセル範囲を抜き出す
　xVals = Mid(xVals, InStr(xVals, "!") + 1, Len(xVals))
　xVals = Left(xVals, InStr(xVals, ",") - 1)

　'　X軸の左にある列をラベルとしてつける
　For Counter = 1 To Range(xVals).Cells.Count
　　ActiveChart.SeriesCollection(i).Points(Counter).HasDataLabel = True
　　ActiveChart.SeriesCollection(i).Points(Counter).DataLabel.Text = Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
　Next Counter

End Sub

'---　ここまで

※FaceId（ツールバーのアイコン）はFaceIdでぐぐって。いろいろ出てくるから。

６．　Visual Basic Editorを閉じ、Book1に戻る。

７．　[ファイル]メニュから"名前を付けて保存"を選択する。

８．　ファイルの種類をリストの一番下の"Microsoft Office Excel アドイン(*.xla)"にする。

９．　適当なファイル名を付ける。（ここではAttachLbl.xlaとします）

１０．　ファイルを保存する場所を指定する（標準ではExcelのAddInsフォルダになっていると思います）

１１．　Excelを閉じる。

-----------------

アドインを読み込む

-----------------