| |
>上記のマクロで、グラフ内の異常点を
>ダブルクリックすれば元ＤＡＴＡにとんでいきますが、
>元ＤＡＴＡに行かず、グラフ内の異常点をダブルクリックすると
>同時にグラフの元ＤＡＴＡから値を随時削除するには
>どうしたらいいでしょうか？
元ＤＡＴＡのセルに飛ばず、セル値を削除するだけでは...
これくらいの応用が利かないようではマクロを使いこなすのは大変でしょう。頑張って下さい。
以下、ご参考。
'ブックモジュール
Option Explicit
Private WithEvents Graph As Chart
Private Sub GraphEventBegin()
Set Graph = ActiveChart
If Graph Is Nothing Then Beep 'グラフが選択されていない
End Sub
Private Sub GraphEventEnd()
Set Graph = Nothing
End Sub
Private Sub Graph_BeforeDoubleClick(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long, Cancel As Boolean)
If ElementID = xlSeries And Arg2 > 0 Then
Range(Split(Graph.SeriesCollection(Arg1).Formula, ",")(2))(Arg2).ClearContents
Cancel = True
End If
End Sub
|
|
mura
- 10/7/6(火) 18:18 -
