複数のチャートオブジェクトにクラスを適用する - VBA

Question

グラフオブジェクトでクリックイベントをキャプチャするクラスモジュールを作成しました。 1つのチャートでは期待通りに機能しますが、複数のチャートがある場合は、作成された最後のチャートだけがチャートクラスの機能を維持します。以下は、各グラフオブジェクトにグラフクラスを適用するために使用しているコードです。

Option Explicit 

Global gclsDrill As New clsDrill 

'Purpose: Initialize the Drill down class on each chart object 

Sub InitChart() 

Dim oChtObj As ChartObject 
Dim oWorksheet As Worksheet 


If oWorksheet Is Nothing Then Set oWorksheet = Sheets("Charts") 

For Each oChtObj In oWorksheet.ChartObjects 
    Set gclsDrill.Chart = oChtObj.Chart 
Next 

End Sub 

なぜ1つのチャートオブジェクトでのみ動作し、すべてのオブジェクトではなく、関連する情報が見つからないのかわかりません。誰でもアイデアはありますか？ありがとう。

Answer 1

クラスのグローバルインスタンスを使用する代わりに、コレクションを使用します。それぞれのグラフのクラスの新しいインスタンスを作成し、各インスタンスをコレクションに追加します。

Option Explicit 

Global colCls As Collection 'clsDrill 

'Purpose: Initialize the Drill down class on each chart object 

Sub InitChart() 

    Dim oChtObj As ChartObject 
    Dim oWorksheet As Worksheet 

    Set colCls = New Collection 

    If oWorksheet Is Nothing Then Set oWorksheet = Sheets("Charts") 

    For Each oChtObj In oWorksheet.ChartObjects 
     colCls.Add GetHandler(oChtObj.Chart) 
    Next 

End Sub 

Function GetHandler(cht As Chart) As clsDrill 
    Dim rv As New clsDrill 
    Set rv.Chart = cht 
    Set GetHandler = rv 
End Function