ExcelVBA グラフでSeriesのValuesを設定するとエラーになる

Question

Excel2010 VBA
Windows7

以下のような5件くらいのデータで、棒グラフを作成し
a 14
b 12
c 10
d 14
e 16

マクロに

Sub Macro1()
    
Dim s As Series

    Set s = ActiveChart.SeriesCollection(1)
    s.Values(1) = 100
    
    
End Sub

とすると、Values(1)=100のところで、
「スタック領域が不足です」とエラーがでます。
もしくは、Excelがぶっとびます。
Valuesプロパティはコードから設定できないのでしょうか？
Valuesは0にしても、Emptyにしてもエラーになります。

やりたいことは、
棒グラフで元データのセルの値が指定した値、たとえば10であれば、
その部分の棒グラフは空白、つまり途切れる、としたいのです。

セルの値を空白にすれば、棒グラフの部分も途切れるのですが、
セルの値はそのままで、棒グラフだけ切りたいです。

Valuesがエラーになるので、他の方法があればよいのですが、
いいアイデアが思い浮かびません…。

よろしくおねがいします。

Answer 1

im1156様

ご質問の件ですが、以下のように、棒グラフの色を消してしまうのは如何でしょうか？

    Dim i As Integer
    Set s = ActiveChart.SeriesCollection(1)
    For i = 1 To 5
    If s.Values(i) = 10 Then
    s.Points(i).Select
    Selection.Format.Fill.Visible = msoFalse
    Selection.Format.Line.Visible = msoFalse
    
    End If
    Next

上記で、以下のように、エクセル側のデータはそのままで、条件に該当する棒グラフ部分だけ見えなくすることはできます。

Comments

[jm1156]

なるほど！その手がありましたか。
ありがとうございます。助かりました。