Excel VBA質問箱 IV

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

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


13867 / 76734 ←次へ | 前へ→

【68369】Re:指定位置のグラフ要素を取得するが2007で動かない
発言  n  - 11/2/27(日) 22:24 -

引用なし
パスワード
   2007は系列クリックでcht_MouseUpイベントが利かないようですね。
もし1クリックで済ませたい場合は変わりにcht_MouseDownイベントを使うと良いかもしれません。

標準モジュール側にPublic変数を設定して
Option Explicit
Public ElemID As Long, Arg1 As Long, Arg2 As Long

Sub test()
  Dim Var As Variant
  Dim Msg As String
  Dim Msg2 As String

  Var = cht_class.cht.SeriesCollection(Arg1).XValues
  Msg = Var(Arg2)
:(以下現在のcht_MouseUpイベント処理の中身)
End Sub

cht_MouseDownイベントには
Private Sub cht_MouseDown(ByVal Button As Long, _
             ByVal Shift As Long, _
             ByVal x As Long, _
             ByVal y As Long)
  cht.GetChartElement x, y, ElemID, Arg1, Arg2
  If ElemID = xlSeries Then
    Application.OnTime Now, "test"
  End If
End Sub

Application.OnTimeメソッドを使って標準モジュールの"test"プロシージャを呼び出すようにします。
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 お礼

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