|
こんにちは
>Dim myChtCls As ChartEventCls ←←←←←ここで止まってしまいます。
Classモジュールのプロパティでオブジェクト名を「ChartEventCls」に変更する。
>標準モジュール -------------------------------
以下はなんかグチャグチャで訳が分かりません。
多分、多分、多分こんな感じ。
Dim myChtCls As ChartEventCls '←←←←←ここで止まってしまいます。
Dim myCollection As New Collection
Sub InitializeChartEvent()
Dim Sht As Worksheet
Dim obj As ChartObject
Dim Cht As Chart
Dim Num As Long
Set Sht = ActiveSheet
For Each obj In Sht.ChartObjects 'Shtの埋め込みグラフを順に
Set Cht = obj.Chart
Set myChtCls = New ChartEventCls
Set myChtCls.myChartClass = Cht
myCollection.Add Item:=myChtCls, Key:=Cht.Name 'コレクションに登録する
Next
Set Cht = Nothing
Set Sht = Nothing
For Num = 1 To myCollection.Count ' コレクションからオブジェクトの名前を削除します。
myCollection.Remove 1 ' コレクションは自動的にインデックスが付け直されるので、ループを繰り返すごとに先頭のメンバを削除します。
Next
End Sub
|
|