エクセルの散布図でVBAを使って各データ点にラベルを付ける

ActiveChart.SeriesCollection(j).Points(i).HasDataLabel = True
 
 これでラベルを表示する設定にする
 SeriesCollectionは系列。 インデックスで複数の系列にアクセスできる

ActiveChart.SeriesCollection(j).Points(i).DataLabel.Text = D_Label_1(i, 1)

 Pointsは系列の中のデータ点。

 これもインデックスで複数のデータ点にアクセス可能
 .DataLabel.Text = ’ラベル名’ で任意のラベル名を付けられる