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

数値軸の最大値を変更するExcelマクロ

対象: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 cho
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マクロ

[スポンサードリンク]

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

TrackBack:0

TrackBack URL

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

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

検索


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

.