- 日時： 2007/07/25 00:47
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[チャート][][] *
* キーワード：MSChart コントロール で表示できるグラフの種類 *
***********************************************************************************
よく、＊＊グラフの表示の仕方を教えて下さいと言った質問がありますが、下記の定数のグラフ以外は表示できません。（応用したものは除く）
従って、定数に無いようなグラフは他のコントロールを使用するか、ご自分でグラフを作成して下さい。
又、グラフの表示時に系列内の個別のデータを識別する術がありません、従って系列内の個別のデータに関する設定は殆どできません。
従って、スタイルやカラーの設定等の変更は、全て、系列単位となります、まず、Excelのグラフでも出来ないような事は、MSChart では出来ないと思って下さい。（質問してもまず回答はありません）
グラフの設定でよく見かける一般的な設定以外の事をやりたければ、ご自分でグラフを作成して下さい。（やりたい事をうまく説明も出来ないような事はできません(質問してもレスがつきません)と言う事です。）
私もグラフはいくつか作っていますがそう高度な事はしておりません、表示位置の計算がほとんどです。
http://hanatyan.sakura.ne.jp/samplepic/vb6_347.htm
http://hanatyan.sakura.ne.jp/samplepic/vb6_348.htm
http://hanatyan.sakura.ne.jp/vbhlp/gra_en.htm
-----------------------------------------------------------------------------------
投稿者：花ちゃん MSChart コントロール でグラフの種類を変更する 2007/07/23
-----------------------------------------------------------------------------------
>>0 のコードに下記を追加・変更して下さい。
★ 今後のサンプルは、下記同様 sChartViewSet() プロシージャ内に追加する形になります。
Private Sub Form_Load()
'フォームのサイズを設定(好みで変更してください)
Form1.Move 0, 0, 10400, 7000
'MSChart コントロールの表示サイズを設定
MSChart1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
Call sDataOpen 'データの読み込み
Call sChartViewSet 'グラフの表示設定 '★ ---- この一行を追加
End Sub
'★ ---- 下記の部分全てを追加して下さい。
Private Sub sChartViewSet()
'グラフの表示設定
'------------------- グラフの種類を設定 ----------------------
With MSChart1
'設定しなければ、VtChChartType2dBar となる
.chartType = VtChChartType2dBar 'デフォルトのグラフタイプ（2D棒）
End With
'---------------------------------------------------------------
End Sub
'グラフの種類は下記より選択
' VtChChartType3dBar '3 次元バー
' VtChChartType2dBar '2 次元バー
' VtChChartType3dLine '3 次元線
' VtChChartType2dLine '2 次元線
' VtChChartType3dArea '3 次元面
' VtChChartType2dArea '2 次元面
' VtChChartType3dStep '3 次元階段
' VtChChartType2dStep '2 次元階段
' VtChChartType3dCombination '3 次元組み合わせ
' VtChChartType2dCombination '2 次元組み合わせ
' VtChChartType2dPie '2 次元パイ
' VtChChartType2dXY '2 次元 XY
|
グラフの種類を変更する(VB6.0)