Excel XYチャート：VBAダイナミックな選択したポイントにデータラベルを追加

Question

私はXYチャートを列C & D値に基づいてプロットしました。列Bの値を使用してチャート内の選択したポイントにデータラベルを追加します。以下のコードを書きましたが、Rn-Timeエラーメッセージポップアップが常に表示されます...オブジェクトの 'DataLabel'失敗しました "。

Sub AddLabelsToSelected() 

Dim Cht As Chart 
Dim i, ptcnt, ptindx, rownum As Integer 

Set Cht = ActiveSheet.ChartObjects(1).Chart 

' Add labels to these many selected points 
ptcnt = Range("A1").Value 

For i = 1 To ptcnt 

ptindx = Cells(i + 29, 1).Value 
rownum = Cells(i + 29, 1).Value + 29 

    Cht.SeriesCollection(1).Points(ptindx).DataLabel.Text = _ 
     ActiveSheet.Cells(rownum, 2).Value 
Next i 

End Sub 

ありがとうございます！

Answer 1

ptindxがPoints（）の使用に無効な値になっています... ポイント（ptindx）.DataLabelsは、存在しないか、データラベルに関連付けられないものを指します。

または、おそらくデータラベルを最初に表示させる必要があります。 すなわち.Points(ptindx).HasDataLabel = TRUE