みなさん　おはようございます(^^

ＭＳＣｈａｒｔのＹ軸の目盛りなんですが、
例えば１００万円から５００万円までの表示をつける場合、
１００００００、５００００００などの数字が並びますよね。

グラフが大きければいいんですが、小さい場合、これが結構場所を取るんです。
そこで表示を１００とか５００で表示して、単位の表示で「万円」とすればすっきりします。
でもグラフからすれば、
これは単なる１００、５００の数値なので表示はグラフの上端に張り付いてしまいます。

そこで倍率を、この場合１００００に設定して、
グラフにその倍率を認識させる事が出来れば解決すると思いますが、
このような方法は可能なのでしょうか？

WindowsXPのＶＢ６．０proを使用しています。

> これは単なる１００、５００の数値なので表示はグラフの上端に張り付いてしまいます。

上端に張り付いてしまうとはどのような事でしょうか？

> そこで倍率を、この場合１００００に設定して、
> グラフにその倍率を認識させる事が出来れば解決すると思いますが、

よく意味が理解できないのですが、Excelのようにデータの桁を調整してやれば
どうですか？
データ=データ/1000 のようにして表示すればいいかと。

又、必要により下記のように目盛りを変更して下さい。

    With MSChart1.Plot.Axis(VtChAxisIdY).ValueScale
        .Auto = False
        .Maximum = 2000          '最大値
        .Minimum = 200           '最小値
        .MajorDivision = 10     '目盛り線の数（等分）10点毎
        .MinorDivision = 2      '補助目盛り線等分　　 5点毎
    End With

花ちゃん 毎度ありがとうございます。

> 上端に張り付いてしまうとはどのような事でしょうか？
　　例えばＹ軸目盛りのスケールが１００〜５００に、１０００のデータを表示させた場合、
　　その表示ポイントはグラフの最上端に表示されてしまう事です。

> データ=データ/1000 のようにして表示すればいいかと。
　　それも考えたんですが、現在、○○.mdbからデータを読み込んで、
　　それを直接ＭＳＣｈａｒｔに貼り付けています↓
　　
　　          MSChart1.DataSource = Adodc1
              Set Adodc1.Recordset = rs

　　それでデータを１/１０００にするためには、レコードセットから一旦データを読み込んで、
　　１/１０００にしてからそれをＭＳＣｈａｒｔに貼り付ける操作になります。
　　したがって表示されまでの時間が長くなるのとプログラムが複雑になるので、
    出来れば避けたいと考えています

　　方法がなければやらざるを得ませんが・・・。

そもそも貴方のおしゃっている事は人間が手で書いてもできませんよね
目盛りの単位を万の位にしたならデータもその万の位にしたもので
ないと、そのグラフにあった表示にならないはずですが。
目盛りを最大目盛りを500にしたグラフに2000の値を表示させようと
思う事事態が間違いで当然表示しきらないので一番上の目盛り位置まで
表示します。
Excelのグラフだって内部的にデータの桁調整をしているはずですよ。

まさに花ちゃんのおっしゃる事の裏返しになると思うんです。
もしＭＳＣｈａｒｔに、Ｙ軸の倍率設定のプロパテーなりオブジェクトがあって、
それを設定すればＭＳＣｈａｒｔの方でデータを１/倍率にして表示してくれると思うんです。
そうすればＭＳＣｈａｒｔのＹ軸の目盛り表示の桁数は、１/倍率で済むはずになるかと・・・。
そういったオブジェクトなりプロパテーがあるかどうかをお尋ねしている訳です。

> そういったオブジェクトなりプロパテーがあるかどうかをお尋ねしている訳です。
そのようなものがないから、

>Excelのようにデータの桁を調整してやればどうですか？
>データ=データ/1000 のようにして表示すればいいかと。

と申し上げたのです。
Excelを見れば解りますが、Excelでもそのようにしているはずです。
表示単位をComboBoxで選べば表示するデータをその桁に合せるように
処理しているかと思います。

2行10列のデータなら下記のようにすればいいかと
単位や系列数は変数で処理すればExcelと同様になります。

Private Sub setTani()
'表示するデータの桁合せ
    Dim i As Long, j As Long
    With MSChart1
        For i = 0 To .ColumnCount - 1
            .Column = i + 1
            For j = 0 To .RowCount - 1
                .Row = j + 1
                .Data = .Data / 1000   'sngTani
            Next j
        Next i
     End With
End Sub
このくらいの処理なら10分の1秒も掛からないでしょうし、複雑だとも思えないのですが。