|
▼kanabun さん:
返信遅くなりすみません。
早速ですが、引用させて動作を確認しました。
まさにやりたかったことが出来たました。
有難うございます。
ただ、
グラフシートでは上手くいくのですが、埋め込みグラフでは
下記の「←←←」の部分で
「SeriesCollectionメソッドは失敗しました。Chartオブジェクト」のエラーが表示されます。
ヘルプを見ても要領がえません。
かって申しますがご教授していただければと思っております。
Private WithEvents MyChart As Chart
'===シートActivate時===
Private Sub Worksheet_Activate()
If MyChart Is Nothing Then
Set MyChart = ActiveSheet.ChartObjects(1).Chart
End If
End Sub
Private Sub MyChart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
Dim varX As Variant
Dim varY As Variant
Dim Msg As String
Select Case ElementID
Case xlSeries '- データ系列が選択されたとき
Msg = "1"
With MyChart.SeriesCollection(nSeries) ←←←
Select Case iPoint
Case -1 ' --- 系列全体が選択されたとき
Msg = .Formula
Case Else ' --- 特定の要素が選択されたとき
varX = .XValues
varY = .Values
Msg = .Name & "(" & varX(iPoint) & ", " & varY(iPoint) & ")"
End Select
End With
'MsgBox Msg
'ActiveWindow.Caption = Msg
'または
Application.StatusBar = Msg
End Select
|
|