エクセルの折れ線グラフで数値以上は色が変わるマクロ

質問

• エクセルの折れ線グラフで規定以上の数値は色が変わるマクロを作成したいが、実行時にエラーが発生する。
• 手動でステップ実行すると正常に動作するが、ボタンに登録して実行するとエラーが発生する。
• エラーメッセージにはオブジェクト変数またはwithブロック変数が設定されていない旨が表示される。Windows 7を使用している。

回答No.7

xls88 · ベストアンサー

＞No.6 この回答への補足
上記で示されたMacro1のコードで説明します。

まず、ボタンの種類を明らかにしたいと思います。
本文の”ボタンに登録”という文言から
ボタンの種類はフォームコントロールあるいはオートシェイプ等の図形だと判断できます。
こちらのボタンからの実行では問題なくMacro1は動作します。

他に、アクティブXコントロールのボタンがあります。
こちらのボタンに登録（ちょっと違和感がある表現ですが）されている場合
仰る通りの処でデバッグになります。
そこで、ActiveChartではなく先の回答でグラフ名を使うように提案しました。
フォームコントロールのボタンあるいはオートシェイプ等の図形でも問題ありません。

＞With ActiveSheet.ChartObjects("グラフ 2").Chart.SeriesCollection(1)
＞の結果は、この部分で指定された名前のアイテム見つかりません。です。
これもActiveSheetではなく、シート名を使ってみてください。
下記○○○○○の部分をグラフが埋め込まれているシート名に変えて試してください。

Sheets("○○○○○").ChartObjects("グラフ 2").Chart.SeriesCollection(1)

＞又同じ画面で一旦グラフを消して再選択するとグラフの数字が変わってしまい
＞マクロの方を修正する必要があります。
直近に作成したグラフなら
With Sheets("○○○○○")
.ChartObjects(.ChartObjects.Count).Chart.SeriesCollection(1)
End With
で指定できます。
場合によってはChartObjectに任意の名前を付けた方が良いかも知れません。

お礼

素早い対応誠に有難うございます。
補足説明通りボタンとはオートシェプで実施しておりました。
これが登録すると、動いてくれませんでした。
しかし補足文中に、こちらのボタンからの実行では問題なくMacro1は動作します。
の文を拝見しまして、もしやと思いご指摘通りフォームコントロールに切り替えて
登録したところ、すべて問題解決です。誠に有難うございました。
オートシェプとフォームコントロールでは全く同じと思っていましたが、何かに
差があること分かりました。
ご丁寧且つ素早い対応本当に有難うございました。
今回ご指示頂いたシート名、グラフ名についてはただいま確認中ですが、
小生には若干難しくなっておりますので、じっくり確認させていただきます。
御蔭様でひとまず問題なく動くマクロが完成しましたこと、ご報告致しまして
お礼に変えさせていただきます。誠にありがとうございました。
今後共よろしくご指導お願い申し上げます