エクセルでグラフを作成し,軸の最小値,最大値をそれぞれセルA1,セルA2で参照させるには,類似質問で以下のマクロが必要だとわかりました。
ただし,このマクロを実行するには,シート上のグラフを選択してから,Alt+F8キーを押して,マクロダイアログボックスを起動させて,「実行」ボタンを押すという過程が必要です。
Sub 最大最少値()
With ActiveChart.Axes(xlValue)
.MinimumScale = Range("A1").Value '最小値
.MaximumScale = Range("A2").Value '最大値
End With
End Sub
この煩瑣な過程を経ずに,マクロボタン一発で同様の処理を行いたいと思い,2行目のグラフ選択のコードを加えて,以下のマクロを作成してみました。
Sub 最大最少値()
ActiveSheet.ChartObjects.Select
With ActiveChart.Axes(xlValue)
.MinimumScale = Range("A1").Value '最小値
.MaximumScale = Range("A2").Value '最大値
End With
End Sub
ところが,「オブジェクト変数または With ブロック変数が設定されていません」というデバッグが表示され,3行目の With ActiveChart.Axes(xlValue) 部がエラーとなり,マクロが実行できません。
これを解決するには,どうしたらよいでしょうか。ご教授ください。
No.1ベストアンサー
- 回答日時:
アクティブシート上に複数のグラフがありませんか?複数ある場合は、そのうちのどれをSelectするかを指定する必要があるはずです
例えば、こんな感じで、どうでしょう?
ActiveSheet.ChartObjects(1).Select
早々のご指南,ありがとうございます。
ご指摘の通り,アクティブシート上に2つのグラフがありました。
棒グラフと折れ線グラフがありまして,最小値最大値のセル参照させたいグラフは,折れ線の方でした。
試しにそのままのコードを貼りつけて実行してみましたら,棒グラフの方が参照されてしまいました。そこで以下のように,( )内数字を2で試してみました。
ActiveSheet.ChartObjects(2).Select
そうしたら,うまくいきました。
大変ありがとうございました。助かりました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセル2010 グラフの軸の最大値最小値をセル参照する
Excel(エクセル)
-
エクセル グラフの最大値 最小値をセル参照させるマクロ
Excel(エクセル)
-
エクセル グラフにセルの値を参照した目盛を入れたい
Excel(エクセル)
-
-
4
エクセルグラフ数値軸の最大最小値にセルの値を入れたい
Excel(エクセル)
-
5
Excelでエラー(#N/Aなど)値を含む範囲で最大値や最小値をもとめ
その他(Microsoft Office)
-
6
エクセルグラフの一括設定。
Excel(エクセル)
-
7
ExcelのVBAについて(グラフ操作)
Visual Basic(VBA)
-
8
横軸ラベルの追加に関するエラー(VBA)
Visual Basic(VBA)
-
9
エクセルでエラーが出て困っています。
Excel(エクセル)
-
10
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
11
エクセルの主軸と第2軸の0を合わせて表示したい
Windows Me・NT・2000
-
12
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
13
エクセルの散布図のX軸に文字を表示したいのですが、どうしたらよいのでしょうか?
Excel(エクセル)
-
14
マクロを複数シートに実行するには?
Excel(エクセル)
-
15
ExcelでNA()を使わずにプロットしない散布図を作成する方法?
Excel(エクセル)
-
16
ExcelVBA:複数の特定のグラフを選択する方法
Visual Basic(VBA)
-
17
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
18
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
19
Excel 複数のグラフの軸の書式設定を一気に変更するには?
Excel(エクセル)
-
20
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
EXCELのセルへ、デジタル時計を...
-
エクセルで複数のシートをまと...
-
Excelのワークシート上に検索窓...
-
マクロ 実行ボタンを押さずに...
-
エラーになってないのにVBA...
-
Excel VBA のdebug(F8キー) が...
-
Excelを開いた時に表示さ...
-
複数ファイルにある特定のシー...
-
エクセル グラフの軸の最小値最...
-
Excelマクロでオプションボタン...
-
マクロ ブックをマクロなしでコ...
-
GetAsyncKeyState(32) の動作が...
-
秀丸のマクロが動かない
-
ワードからエクセルへ貼り付け...
-
TeraTermのマクロについて
-
UWSCの簡単なキーマクロなので...
-
Wordの画面を左右にスクロール...
-
マクロボタンを作ってのマクロ...
-
Excelのマクロ ランタイムエラ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
複数ファイルにある特定のシー...
-
EXCELのセルへ、デジタル時計を...
-
Excel VBA のdebug(F8キー) が...
-
エラーになってないのにVBA...
-
Excelを開いた時に表示さ...
-
Wordで「原稿用紙○枚」を換算す...
-
ワードからエクセルへ貼り付け...
-
エクセルで複数のシートをまと...
-
エクセルのマクロ機能で前のシ...
-
エクセル グラフの軸の最小値最...
-
TeraTermのマクロについて
-
Excelの改ページ 同シート内で...
-
EXCEL 複数のシートの同一の位...
-
ワードで画像を自動で挿入する方法
-
Excelのワークシート上に検索窓...
-
モジュール内のマクロを全て実...
-
Excel2000 データの並べ替えで...
-
Excelマクロでオプションボタン...
おすすめ情報