Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57141 / 76732

←次へ　｜　前へ→


	【24331】イベントがうまく動かない

VBAビギナー - 05/4/19(火) 16:32 -


	引用なし

	パスワード

下記のコードで　標準モジュールの最初の行で止まってしまいます。
ヘルプとかを見ても解決できません。
何方か、ご教授お願いします。　
（解説をお願いします。）

Classモジュール　-------------------------------
Public WithEvents myChartClass As Chart

Private Sub myCht_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
.............
.............
End Sub

標準モジュール　-------------------------------
Dim myChtCls As ChartEventCls　←←←←←ここで止まってしまいます。
Dim myCollection As New Collection

Sub InitializeChartEvent()

　　Dim Sht As Worksheet
　　Dim obj As ChartObject
　　Dim Cht As Chart
　　
　　Set Sht = ActiveSheet
　　　　For Each obj In Sht.ChartObjects　　 'Shtの埋め込みグラフを順に
　　　　　　Set Cht = obj.Chart
　　　　　　Set myChartClass = New ChartObject
　　　　　　Set myChartClass.myCht = Cht
　　　　　　myCollection.Add Item:=myChtCls, Key:=Cht.Name　　　　　　　　　　　　　 'コレクションに登録する
　　　　Next
　　Set Cht = Nothing
　　Set Sht = Nothing
　　For Num = 1 To myChartClass.Count　　' コレクションからオブジェクトの名前を削除します。
　　　　MyClasses.Remove 1　　　　　　' コレクションは自動的にインデックスが付け直されるので、ループを繰り返すごとに先頭のメンバを削除します。
　　Next
End Sub

1 hits

▼

【24331】イベントがうまく動かない VBAビギナー 05/4/19(火) 16:32

≪