散布図にラベルをつける

on 11月 18, 2020

エクセルで散布図にラベルをつける

エクセルのvisual basic エディターを起動し、以下のコードを貼り付ける。そして対象となるグラフを左クリックで選択し、アクティブな状態にしたうえで、マクロを実行する。

Sub 散布図ラベル()

   Dim i As Integer
   Dim labels As String

   labels = ActiveChart.SeriesCollection(1).Formula
   labels = Mid(labels, InStr(InStr(labels, ","), labels, Mid(Left(labels, InStr(labels, "!") - 1), 9)))
   labels = Left(labels, InStr(InStr(labels, "!"), labels, ",") - 1)
   
   Do While Left(labels, 1) = ","
      labels = Mid(labels, 2)
   Loop

   For i = 1 To Range(labels).Cells.Count
     ActiveChart.SeriesCollection(1).Points(i).HasDataLabel = True
     ActiveChart.SeriesCollection(1).Points(i).DataLabel.Text = Range(labels).Cells(i, 1).Offset(0, -1).Value
   Next i

End Sub

Categories:

VBA

エクセルで散布図にラベルをつける

category