Excel 2016グラフのテキストラベル

Question

Excel 2016では、グラフ上にラベルを表示したいと考えています。 1のA、2 B、27 AA、等私は既にシート（ "データ"）とに移入データが

：

Iは、対応する番号に文字を有する機能、ALPHを有しますグラフはデータラベルなしで動作します。

For s = 1 To 18 
     ns = (s - 1) * 2 
     Max = "32" 
     Sheets("Analysis").ChartObjects("Chart 1").Activate 
     Sheets("Analysis").ChartObjects("Chart 1").Chart.SeriesCollection(s).XValues = Sheets("Data").Range(alph(ns + 1) & "26:" & alph(ns + 1) & Max) 
     Sheets("Analysis").ChartObjects("Chart 1").Chart.SeriesCollection(s).Values = Sheets("Data").Range(alph(ns + 2) & "26:" & alph(ns + 2) & Max) 
     Sheets("Analysis").ChartObjects("Chart 1").Chart.SeriesCollection(s).Name = nameA(s) 
     Sheets("Analysis").ChartObjects("Chart 1").Chart.SeriesCollection(s).Points(s).DataLabels.HasDataLabel = True 
     Sheets("Analysis").ChartObjects("Chart 1").Chart.SeriesCollection(s).Points(s).DataLabels.Position = xlLabelPositionBelow 
     Sheets("Analysis").ChartObjects("Chart 1").Chart.SeriesCollection(s).Points(s).DataLabels.Text = nameA(s) 
    Next s 

Answer 1

Seriesをチャートに動的に追加するSubを使用している場合、各シリーズのパラメータ（異なる）が設定されます。

Option Explicit 

Sub CreateChart() 

Dim Cht         As ChartObject 
Dim Cht_Series       As Series 
Dim Series_Cntr       As Integer 

Set Cht = Worksheets("Analysis").ChartObjects("Chart 1") 

With Cht.Chart 
    Set Cht_Series = .SeriesCollection(s) 
    With Cht_Series 
     .XValues = Sheets("Data").Range(alph(ns + 1) & "26:" & alph(ns + 1) & Max) 
     .Values = Sheets("Data").Range(alph(ns + 2) & "26:" & alph(ns + 2) & Max) 
     .Name = nameA(s) 

     .ApplyDataLabels 
     With .DataLabels 
      .Position = xlLabelPositionBelow 

      ' decide what you want to display on the Data labels 
      .ShowValue = True 
      .ShowSeriesName = True 
      .ShowCategoryName = True 
     End With 
    End With 
End With 

End Sub