![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
vbaでマクロを組んでおります。
mouseupイベント、GetChartElementをもちいて散布図の中のグラフ要素の値を取得したいのですが、
これらのコマンドはグラフシートにしか適用できないでしょうか?グラフシートではうまくいくのですが埋め込みグラフに対して行うとうまくいきません。分かる方いらっしゃいましたら、お願いいたします。
クラスモジュールClass1にて↓
Public WithEvents myChart As Chart
Private Sub myChart_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
myChart.GetChartElement x, y, ElemID, Arg1, Arg2
Select Case ElemID
Case xlSeries
MsgBox ("データ系列") '⇒データ系列と認識されればメッセージボックスがでるはず
Case Else
MsgBox ("その他")
End Select
End Sub
標準モジュールに入力↓
Dim myClass As New Class1
Sub InitializeChart()
Set myClass.myChart = ActiveChart
End Sub
No.2ベストアンサー
- 回答日時:
Classモジュールを使って、グラフシートのMouseUpイベントを使おうとしているのですか?
どうも意図通りにイベントが発生していないようです。
シートモジュールでグラフシートのイベントを使う例があります。
下記ページで、kanabunさんが in 2010/05/30(日) 22:31:15 に投稿がされています。
そっくり、そのままで使えます。
≪参考≫
グラフ要素を取得する方法
http://park7.wakwak.com/~efc21/cgi-bin/exqaloung …
Clasモジュールでやる方法も探せば見つかると思います。
回答ありがとうございます。
参考のホームページも一度みたことがあります。この中では、Selectイベントを使用していますね。質問のやり方(Classモジュールと標準モジュールを用いた書き方)で、Selectイベントは埋め込みグラフでもうまくいくのですが、MouseUpでやろうとするとうまくいかないのです。
質問でかいたプログラムを起動→埋め込みグラフ上でデータ系列以外を選択した場合、「その他」と表示されているので、イベント自体は発生しているとは思うのですが、データ系列を選択しても反応してくれません。何か足りないのでしょうか?
No.1
- 回答日時:
あくまで、推測ですが。
WithEvents は、フォーム限定のキーワードではないかと思います。
なので、シート上のオブジェクトは認識できないのではないのかと。
元々WithEvents はVBのキーワードですし。
この回答への補足
ごめんなさい。同じ書き方ではありませんでした。selectイベントを用いた場合では、witheventsは使用していますが、GetChartElementは使用していませんでした。
補足日時:2011/03/23 22:21ご回答ありがとうございます。
今回のようにmouseupを用いる場合は、うまくいかないのですがselectを用いると、同様の書き方でうまくいくのです。(つまり、myChart_select)この場合もWithEventsを使用しているのですが、何が違うのでしょうか?
ちなみに、質問のプログラムを起動すると、データ系列以外は、認識していて、「その他」とメッセージボックスで表示されます。ただ、データ系列だけはうまく認識できていないようです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのグラフに上下限値の...
-
【至急】Excelで睡眠時間のグラ...
-
グラフの線だけをコピペしたい!
-
はみ出たレーダーチャートの表...
-
エクセルでグラフの平均化を教...
-
エクセルのプロットエリアについて
-
Excelグラフ
-
EXELグラフをWORDに貼り付ける...
-
wordで数直線・グラフを作成
-
エクセルのグラフの色を統一す...
-
複合グラフ 株価チャートと折れ線
-
Excelのグラフ「プロット...
-
Excelのグラフで上と右の枠線を...
-
エクセル グラフのプロットエ...
-
Excelで膨大な系列数のグラフを...
-
excel2010の折れ線グラフの一括...
-
Excel2007のグラフで右の枠線を...
-
ヒストグラフについて。
-
エクセル:2つのグラフを並べて...
-
Excel2007で複合グラフをつくり...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのグラフに上下限値の...
-
エクセルのグラフの色を統一す...
-
【至急】Excelで睡眠時間のグラ...
-
グラフの線だけをコピペしたい!
-
はみ出たレーダーチャートの表...
-
エクセルでグラフの平均化を教...
-
グラフの上側が空いているので...
-
Excelのグラフで
-
Excelのグラフ「プロット...
-
EXELグラフをWORDに貼り付ける...
-
Excelのグラフで上と右の枠線を...
-
excelで線と線の間を塗りつぶし...
-
Excelグラフ
-
wordで数直線・グラフを作成
-
ワードでCos、sinの図を書きたい
-
マイナスを表現する場合はどの...
-
エクセル グラフのプロットエ...
-
Excel2007のグラフで右の枠線を...
-
Excel:角ばったグラフの線を滑...
-
Sma4のグラフ作製
おすすめ情報