チャートが入ったシートがあります。トレンドラインのオン/オフを切り替えるボタンを挿入する必要があります。したがって、最初に、トレンドラインが存在するかどうかを確認する必要があります。単純に聞こえますが、私をNUTSに駆り立てています!!!
trednlineを作成してフォーマットするために使用するコードは次のとおりです。
Sub Trending()
Sheets("Sheet1").ChartObjects(1).Activate
ActiveChart.SeriesCollection(1).Trendlines.Add
ActiveChart.SeriesCollection(1).Trendlines(1).Select
With Selection
.Type = xlPolynomial
.Order = 3
.Border.ColorIndex = 3
.Border.Weight = xlMedium
End With
End Sub
トレンドラインの存在を確認するために、私は次のことを試みました。
If Sheets("Sheet 1").ChartObjects(1).SeriesCollections(1).Trendlines(1).Count = 1 Then
[Statement]
End If
しかし、テストは失敗します。
私は何が間違っているのですか?それを行うための汚くない方法は何ですか?
ありがとう、アル