Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13871 / 76734 ←次へ | 前へ→

【68365】指定位置のグラフ要素を取得するが2007で動かない
質問  eyuka  - 11/2/27(日) 13:25 -

引用なし
パスワード
   こちらの以前のトピック
『指定位置のグラフ要素を取得する』
を参考にさせていただいて、2002で使っていたクラスモジュールの以下のコードが、
2007に変えたところ(OSもXPからwindows7に変えました)、動かなくなってしまいました。
アクティブシート上にある、横軸が時刻、縦軸が値のグラフ上のポイントをクリックするとそのポイントの時刻を取得してK列に記述させるというものです。
2002では動いていたのですが、2007に変えたところ、反応が無くなってしまいました。(グラフ上のポイントをクリックしても、変化がない)

もし、原因がお分かりになる方がいらっしゃいましたら、教えてください。

クラスモジュールclass1のコード

Public WithEvents cht As Chart

Private Sub cht_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
  Dim ElemID As Long, Arg1 As Long, Arg2 As Long
  Dim Var As Variant
  Dim Msg As String


  cht.GetChartElement x, y, ElemID, Arg1, Arg2
'  ↑このオブジェクト変数の変更
   Select Case ElemID '定数値の詳細はヘルプを参照

   Case xlSeries 'データ系列
     Var = cht.SeriesCollection(Arg1).XValues

     Msg = Var(Arg2)
 
     Var = cht.SeriesCollection(Arg1).Values
     Msg2 = CDate(Msg) & vbCrLf & "値:" & Var(Arg2)
    
   Dim intRet As Integer
   Dim strMsg1 As String
   Dim strMsg2 As String
   Dim strMsgX As String

strMsg1 = Msg2 & vbCrLf & "削除始まりの時刻ならyes、終わりならNoをクリック"
intRet = MsgBox(strMsg1, _
     vbYesNoCancel + vbInformation + vbDefaultButton3, strMsg2)
Range("K1").Value = "追加削除"
If intRet = vbYes Then
  If Range("K2").Value = "" Then
   Range("K2").Value = Msg
  Else
   Range("K1").End(xlDown).Offset(1, 0).Value = Msg
  End If
 
ElseIf intRet = vbNo Then
        Range("K1").End(xlDown).Offset(0, 1).Value = Msg
      
    
     MsgBox prompt:=Msg2 & vbCrLf & "削除始まりの時刻ならyes、終わりならNoをクリック", Buttons:=vbYesNoCancel
    
   
     End If

   Case Else
    MsgBox "dataを指定してください"

   End Select
       On Error Resume Next
   Range("K2").CurrentRegion.Offset(1).Resize(, 2).NumberFormat = "h:mm:ss"

End Sub

標準モジュールには、
Sub 追加削除時刻取得()

  ActiveSheet.ChartObjects.Select
  
  Set cht_class = New Class1
  Set cht_class.cht = ActiveChart
End Sub

0 hits

【68365】指定位置のグラフ要素を取得するが2007で動かない eyuka 11/2/27(日) 13:25 質問
【68366】Re:指定位置のグラフ要素を取得するが2007... kanabun 11/2/27(日) 20:27 発言
【68367】Re:指定位置のグラフ要素を取得するが2007... eyuka 11/2/27(日) 21:34 質問
【68368】Re:指定位置のグラフ要素を取得するが2007... kanabun 11/2/27(日) 21:56 発言
【68369】Re:指定位置のグラフ要素を取得するが2007... n 11/2/27(日) 22:24 発言
【68370】Re:指定位置のグラフ要素を取得するが2007... kanabun 11/2/28(月) 9:20 発言
【68376】Re:指定位置のグラフ要素を取得するが2007... eyuka 11/2/28(月) 15:45 お礼

13871 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free