- 日時： 2007/07/26 11:14
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[チャート][][] *
* キーワード：グラフデータの表示単位を変更,,,,, *
***********************************************************************************
元質問：MSChartのＹ軸の倍率 - ＨＢ 2003/10/14-09:24 No.6229
元質問内容は、多分題名のような事だと思うのですが、....。
（詳しい質問内容は、上記ログをご覧下さい）
-----------------------------------------------------------------------------------
投稿者：花ちゃん グラフデータの表示単位を変更する方法 2007/07/26
-----------------------------------------------------------------------------------
'★追加部分
下記をsChartViewSet() プロシージャ内に追加して下さい。
'------------------- グラフデータの表示単位を変更 ----------------------
With MSChart1
Call setUnit(1000) '単位を千に設定
End With
'---------------------------------------------------------------
別途、下記プロシージャを追加して下さい。
Private Sub setUnit(ByVal unit As Long)
'表示するデータの桁合せ
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 * unit 参考図は、便宜上こちらを使用しました。
.Data = .Data / unit
Next j
Next i
End With
End Sub
----------------------------------------------------------------
上記実行図、通常は、.Data / 1000 のようにして、単位を 単位：千円 のように
するのですが、サンプルでは、使用した元データが2桁の数字なので、逆に桁上げ
で表示しております。
又、結果が解り易いように別途、データポイントラベルも表示しております。
http://hanatyan.sakura.ne.jp/samplepic/chartno17-1.gif
|
グラフデータの表示単位を変更する方法(VB6.0)