|
下記のコードで 標準モジュールの最初の行で止まってしまいます。
ヘルプとかを見ても解決できません。
何方か、ご教授お願いします。
(解説をお願いします。)
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
|
|