質問: 折れ線グラフである数値以上は色が変わるマクロ こんにちは初心者で初めての質問です。 エクセルの折れ線グラフで規定以上は色が変わるマクロを拝見しました。 (5行のデーターで20以上は色が変わる) 大変参考になるのですが、実際例題に従ってマクロをくみ確認したところ 手動(f8)でもステップでの動作では動きますが、押しっぱなし、及び ボタンに登録しての操作では activechart.seriescollection(1).points(i).selectの箇所で オブジェクト変数またはwithブロック変数が設定されてません。となり ストップしてしまいます。 いろいろ ヘルプで調べましたがわかりません。 どなたかどう対応すれば解決するのか教えてください。 ちなみにosはwindows7です。
回答: no.5 のコード不備がありました。 chartプロパティが抜けています。 下記に訂正します。 dim yv as variant dim i as long with activesheet.chartobjects("グラフ 1").chart.seriescollection(1) yv = .values for i = lbound(yv) to ubound(yv) if yv(i) >= 20 then with .points(i) .markerbackgroundcolorindex = 3 .markerforegroundcolorindex = 2 end with end if next i end with