次のコードを使用すると、「実行時エラー '13': 型が一致しません」というメッセージが表示されます
Dim SeriesName as String
.
.
SeriesName = "Minor_Milestones"
.
.
.
With .SeriesCollection(SeriesName).Points(ThisPoint)
.
.
ただし、1行を次のように変更すると:
With .SeriesCollection("Minor_Milestones").Points(ThisPoint)
.
.
それは正常に動作します。私は初心者の間違いを犯しているように感じますが、それを見つけることができません!