| |
今度は、Selectイベントを使用した例です。
散布図を例に取り上げました。
まず、新規ブックのSheet1のシートモジュールに
'==================================================================
Dim WithEvents cht As Chart
'===================================================================
Sub mk_sammple() 'サンプルデータとグラフの作成
Dim mkcht As Chart
With Me
.Range("a1:b1").Value = Array("X", "Y")
With .Range("a2:b31")
.Formula = "=round(100*rand(),2)"
.Value = .Value
End With
End With
Set mkcht = ThisWorkbook.Charts.add
With mkcht
.ChartType = xlXYScatter
.SetSourceData Source:=Me.Range("A1:B31"), PlotBy:=xlColumns
.Location Where:=xlLocationAsObject, Name:=Me.Name
End With
End Sub
'====================================================================
Sub set_obj() 'オブジェクトの設定
Set cht = Me.ChartObjects(1).Chart
End Sub
Sub reset_obj() 'オブジェクトの設定解除
Set cht = Nothing
End Sub
'====================================================================
Function edit_addr(add, podr As Long) As String
'Seriesのformulaプロパティの解析
Dim idx As Long, jdx As Long
Dim ans()
Dim wk As Variant
wk = Split(Replace$(Replace$(add, "=SERIES(", ""), "," & podr & ")", ""), ",")
jdx = 1
For idx = LBound(wk) To UBound(wk)
If TypeName(Application.Evaluate(wk(idx))) = "Range" Then
ReDim Preserve ans(1 To jdx)
ans(jdx) = wk(idx)
jdx = jdx + 1
End If
Next
If jdx > 1 Then
edit_addr = Join(ans(), ",")
Else
edit_addr = ""
End If
End Function
'======================================================================
Private Sub cht_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
'selectイベント
Dim srs As Series
Dim srsstr As Variant
Dim addr As Variant
If ElementID = xlSeries Then
Set srs = cht.SeriesCollection(Arg1)
srsstr = Split(edit_addr(srs.Formula, srs.PlotOrder), ",")
xaddr = srsstr(UBound(srsstr) - 1)
yaddr = srsstr(UBound(srsstr))
If Arg2 = -1 Then
Arg2 = 1
srs.Points(Arg2).Select
End If
If Arg2 > 0 Then
MsgBox "(x,y)=" & "(" & Application.Range(xaddr).Cells(Arg2).Value & "," & _
Application.Range(yaddr).Cells(Arg2).Value & ")"
End If
End If
End Sub
１．まず、mk_sammpleを実行し、当該シートにサンプルデータとグラフを
作成してください。
２.次にset_objを実行し、イベントの発生を可能にしてください。
３．ここから本番です。適当なプロットを選択してください。
全てのポイントが選択された場合、自動的に最初のポイントを選択するように
しています。このとき、最初のポイントのＸ，Ｙが表示されます。
４．続いて別のポイントを選択してください。選択されたポイントのＸ，Ｙが
表示されます。
こちらは、正確な値が表示されます。
これを わいわいさんのおっしゃる「非直交５軸の線図」に
応用できますか？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
