TrendlineがVBAに存在することを確認してください

Question

私はチャートが入ったシートを持っています。トレンドラインのオン/オフを切り替えるボタンを挿入する必要があります。最初に、私はトレンドラインが存在するかどうかをチェックする必要があります。シンプルに聞こえるが、ナッツを運転している!!!

ここ

私はtrednlineを作成し、それをフォーマットするために使用するコードは次のとおりです。

If Sheets("Sheet 1").ChartObjects(1).SeriesCollections(1).Trendlines(1).Count = 1 Then 
    [Statement] 
End If 

しかし、テストは失敗します。

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 

トレンドラインが存在するかどうかを確認するために、私が試してみました。

私は間違っていますか？それを行う汚い方法は何ですか？

おかげで、 アル

Answer 1

あなたIf声明と間違って三つのことがあります。それはSheet1、ないSheet 1だ

1. ：あなたは小さいビットであなたの文を分解し、それらを別々にテストされていた、あなたがことがわかっているだろう。立つ瀬がない。これが原因で、「下付き文字が範囲外です」というエラーが発生します。
2. SeriesCollectionプロパティはChartオブジェクトに適用され、ChartObjectオブジェクトには適用されません。はい、私はこの愚かなExcel用語が混乱していることを知っています。 Anyhoo、ChartObjects(1).SeriesCollection(1)ではなく、ChartObjects(1).Chart.SeriesCollection(1)が必要です。
3. Trendlines(1)はTrendlineオブジェクトを返します。これはCountではありません。トレンドラインコレクションの商品アイテムを数えたいとします。つまり、ではなく、Trendlines(1).Countです。要約する

、これはそれを記述する方法です：

If Sheets("Sheet1").ChartObjects(1).Chart _ 
    .SeriesCollection(1).Trendlines.Count > 1 Then 
    MsgBox "there is exactly one trendline" 
End If 

注：トレンドライン数が正確に1である場合にのみ動作します。複数の可能性がある場合は=を>=に置き換えることを検討してください。