Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » VBAで数値軸の最大値・最小値を変更する

VBAで数値軸の最大値・最小値を変更する

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

グラフの最大値を変更するExcelマクロ

「vba グラフ 最大値 変更」
「vba グラフ 最大値 設定」
「エクセル グラフ 最大値変更 vba」
といった検索キーワードに気づきましたので、いつものように簡単なExcelマクロを作ってみました。

数値軸の最大値を変更するサンプルマクロ

以下のSubプロシージャを実行すると、アクティブシート上の全埋め込みグラフの最大値が500に変更されます。

Sub 数値軸の最大値を変更する()
　Dim cho As ChartObject
　For Each cho In ActiveSheet.ChartObjects
　　cho.Chart.Axes(xlValue).MaximumScale = 500
　Next
End Sub

サンプルマクロで利用しているオブジェクト式について

ChartObjectオブジェクトのChartプロパティでChartオブジェクトを取得して、

cho.Chart.Axes(xlValue).MaximumScale = 500

グラフの最大値を変更するExcelマクロ

ChartオブジェクトのAxesメソッドで、引数・TypeにxlValueを指定することで、値軸を表すAxisオブジェクトを取得して、

　cho.Chart.Axes(xlValue).MaximumScale = 500

グラフの最大値を変更するExcelマクロ

AxisオブジェクトのMaximumScaleプロパティを設定しています。

　cho.Chart.Axes(xlValue).MaximumScale = 500

グラフの最大値を変更するExcelマクロ

最小値の取得/設定はAxis.MinimumScaleプロパティ

最大値の取得/設定をAxis.MaximumScaleプロパティで行うのですから、最小値はMinimumScaleプロパティです。

先ほどのSubプロシージャのFor Each～Next文を、

For Each cho In ActiveSheet.ChartObjects
　cho.Chart.Axes(xlValue).MaximumScale = 500
　cho.Chart.Axes(xlValue).MinimumScale = 0
Next

とすれば、軸の最大値が「500」最小値が「0」に設定されます。

理解するExcel VBA／グラフ操作の基本
伊藤潔人 2022-06-10
Amazon


最終更新日時：2022-06-29 15:00

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » VBAで数値軸の最大値・最小値を変更する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓


「グラフ・Chart」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.