- 日時： 2007/07/27 14:07
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[チャート][][] *
* キーワード：グラフ内のクリックした位置のデータを取得表示する *
***********************************************************************************
元質問：MSChartのグラフの値について - MacB 2003/08/28-23:08 No.5652
Excelで作った折れ線グラフだとグラフの折れ線上にマウスを持っていくとその値が表示されますが、VBでも同じようなことができるのでしょうか？
-----------------------------------------------------------------------------------
投稿者：花ちゃん グラフ内のクリックした位置のデータを取得表示する 2007/07/26
-----------------------------------------------------------------------------------
当時は、できませんと答えてしまったが、(^_^;)
'★追加部分
下記のイベントプロシージャを追加して下さい。
但し、一旦クリックしてアクティブにしてからクリックしないとうまく反応しないし、個別データに対してどうこうする事はできませんので、取得のみという事で。
（先にSeriesSelectedイベントが発生するようなので）
Private Sub MSChart1_PointSelected(Series As Integer, _
DataPoint As Integer, MouseFlags As Integer, Cancel As Integer)
'クリックした系列の個別のデータの値を取得表示する
Dim kamoku As String
Dim seito As String
Dim data As Variant
With MSChart1
kamoku = .ChartData(0, Series) '科目名
seito = .ChartData(DataPoint, 0) '生徒名
data = .ChartData(DataPoint, Series) '配列内のデータを取得
kamoku = .Plot.SeriesCollection(Series).LegendText '科目名(こちらでも可)
End With
MsgBox seito & "さんの" & kamoku & "の点数は" & data & "です。"
End Sub
★上記実行図（一部合成しております）
http://hanatyan.sakura.ne.jp/samplepic/chartno19-1.gif
|
グラフ内のクリックした位置のデータを取得表示する(VB6.0)