質問: 100 End Sub ``` とすると、Values(1)=100のところで、 「スタック領域が不足です」とエラーがでます。 もしくは、Excelがぶっとびます。 Valuesプロパティはコードから設定できないのでしょうか? Valuesは0にしても、Emptyにしてもエラーになります。 やりたいことは、 棒グラフで元データのセルの値が指定した値、たとえば10であれば、 その部分の棒グラフは空白、つまり途切れる、としたいのです。 セルの値を空白にすれば、棒グラフの部分も途切れるのですが、 セルの値はそのままで、棒グラフだけ切りたいです。 Valuesがエラーになるので、他の方法があればよいのですが、 いいアイデアが思い浮かびません...。 よろしくおねがいします。
回答: 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 ``` 上記で、以下のように、エクセル側のデータはそのままで、条件に該当する棒グラフ部分だけ見えなくすることはできます。 !マクロ実行後の表示画面