KB404053 - [ACC2]グラフの Y軸目盛りの最小値と最大値を変更する方法

現象

グラフオブジェクトの [Axes] オブジェクトの中の、[MaximumScale] プロパティと [MinimumScale] プロパティの値を変更することによって、グラフの軸目盛りの最大値と最小値を変更することができます。ここでは、Access Basic からグラフの軸目盛りの、最大値と最小値を変更するサンプルプロシージャを紹介します。

■ プロシージャの作成

データベースウィンドウの <モジュール> ボタンをクリックし、<新規作成>ボタンをクリックします。
[編集] - [新規プロシージャ] コマンドを選択するか、ツールバーの<プロシージャ作成> ボタンをクリックします。
[プロシージャの新規作成] ダイアログボックスの [種類] で"Function"を選択します。[名前] でプロシージャ名 (Min_MaxSet) を入力します。
以下のサンプルプロシージャを入力します。
プロシージャ内で行の右端にある_ (アンダースコア) は、次の行に続くことを示します。実際にプロシージャにコードを入力する場合は、_ (アンダースコア)を消して継続して入力してください。

■ サンプルプロシージャ

コード入力後、モジュールウィンドウで [実行]-[モジュールのコンパイル] コマンドを選択するか、ツールバーの <コンパイル> ボタンをクリックしてください。エラーがでる場合は、入力したコードを再度確認してください。

  -----------------------------------------------------------------------------
  Function Min_MaxSet ()
      MinValue = 10000         * Y 軸の目盛りの最小値
      MaxValue = 1000000       * Y 軸の目盛りの最大値
      Forms![フォーム 1]![Mygraph].Object.Axes(2).MinimumScale = MinValue
      Forms![フォーム 1]![Mygraph].Object.Axes(2).MaximumScale = MaxValue
  End Function
  -----------------------------------------------------------------------------

■ フォーム作成

サンプルデータベースファイル NWIND.MDB を使用して、無地フォームを作成します。無地フォームは [ フォームの新規作成 ] ダイアログボックスで[テーブル/クエリーの選択 (T) ] に何も設定せずに、 [ 無地フォーム (B) ]ボタンをクリックします。

フォームのデザインビューで、ツールボックスからグラフを詳細セクションに貼り付けます。グラフウィザードで [商品別売上高] クエリーを元に、グラフを作成します。グラフオブジェクトの [名前/Name] プロパティを「 Mygraph 」とします。

     グラフ ウィザードで設定する項目
       使用するフィールド： [受注日]、[商品別売上高] フィールド
       データをグループ化する時間単位：「 X 軸の時間単位のみ」
       日付データをグループ化する方法：「年ごと」
       データを集計する方法：「合計値を計算する」
       グラフの種類： 2-D の縦棒グラフ

ツールボックスからコマンドボタンを貼り付けます。コマンドボタンの[ クリック時/OnClick ] プロパティに、作成した関数名 ( = Min_MaxSet ( ) )を設定します。この時、関数名の前に = (イコール) を付けてください。プロパティシートを表示するにはコマンドボタン上でマウスをダブルクリックしてください。
フォームを [ フォーム 1 ] として保存します。
[ フォーム 1 ] をフォームビューで開きます。コマンドボタンをクリックすると、Y 軸の目盛りの最小値と最大値が変更されます。

■ 解説

■ 補足

  [ Axes ] メソッド
    説明
     グラフ上の X,Y,Z 軸に対応する 1 ～ 3 の値を使用できます。但し、3 は 3-D
     グラフでのみ有効です。
    定数
      xlValue     2
      xlCategory  1
      xlSeries    3  (3-D グラフでのみ有効)
    サンプルプログラム
      Const xlValue = 2
      Dim OB As Object
      Set OB = Me![OLE1].Object
      OB.Application.Chart.Axes(xlValue).HasMajorGridlines = True
  [ MaximumScale ] プロパティ
    説明
      数値軸の最大値を返します。
      数値軸にのみ利用できます。
      このプロパティを設定すると、[ MaximumScaleIsAuto ] プロパティは False に
      設定されます。
      値の取得および設定ともに可能です。
    サンプルプログラム
      Const xlValue = 2
      Dim OB As Object
      Set OB = Me![OLE1].Object
      OB.Application.Chart.Axes(xlValue).MaximumScale = 120
  [ MaximumScaleIsAuto ] プロパティ
    説明
      True を設定すると、Microsoft Graph が数値軸の最大値を自動的に計算します。
      数値軸にのみ利用できます。
      MaximumScale プロパティを設定するとこのプロパティは False に設定されます。
      値の取得および設定ともに可能です。
    サンプルプログラム
      Const xlValue = 2
      Dim OB As Object
      Set OB = Me![OLE1].Object
      OB.Application.Chart.Axes(xlValue).MaximumScaleIsAuto = True
  [ MinimumScale ] プロパティ
    説明
      数値軸の最小値を返します。
      数値軸にのみ利用できます。
      このプロパティを設定すると、MinimumScaleIsAuto プロパティは False に設定
      されます。
      値の取得および設定ともに可能です。
    サンプルプログラム
      Const xlValue = 2
      Dim OB As Object
      Set OB = Me![OLE1].Object
      OB.Application.Chart.Axes(xlValue).MinimumScale = 10
  [ MinimumScaleIsAuto ] プロパティ
    説明
      True を設定すると、Microsoft Graph が数値軸の最小値を自動的に計算します。
      数値軸にのみ利用できます。
      MinimumScale プロパティを設定するとこのプロパティは False に設定されます。
      値の取得および設定ともに可能です。
    サンプルプログラム
      Const xlValue = 2
      Dim OB As Object
      Set OB = Me![OLE1].Object
      OB.Application.Chart.Axes(xlValue).MinimumScaleIsAuto = True