claude-vba-excel-abc/clsChartEvents.cls at main · gautxori-yuyu/claude-vba-excel-abc · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsChartEvents"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'@IgnoreModule MissingAnnotationArgument
'@Folder "2-Infraestructura.Excel.Charts"
'@ModuleDescription "Evento ligero por grafico -- notifica a su gestor"
Option Explicit

Private Const MODULE_NAME As String = "clsChartEvents"

'--------------------------------------------------------------
' Miembros
'--------------------------------------------------------------
Private WithEvents mChart As Chart
Attribute mChart.VB_VarHelpID = -1
Private mChartMgr As clsChartMgr

'--------------------------------------------------------------
' Propiedad para asociar al gestor
'--------------------------------------------------------------
'@Description: Asigna el gestor padre al que notificar los eventos de activacion/desactivacion
'@Category: Gráficos
'@Scope: interna, auxiliar
'@ArgumentDescriptions: p As clsChartMgr
Public Property Set ParentManager(oEvMgrChart As clsChartMgr)
    Set mChartMgr = oEvMgrChart
    LogInfo MODULE_NAME, "[ParentManager] " & IIf(oEvMgrChart Is Nothing, "DESASIGNADO", "asignado")
End Property

'--------------------------------------------------------------
' Asignacion segura de mChart (con diagnostico)
'--------------------------------------------------------------
'@Description: Vincula el receptor de eventos con un grafico de Excel
'@Category: Gráficos
'@Scope: interna, auxiliar
'@ArgumentDescriptions: cht As Chart
Public Property Set Chart(oChart As Chart)

    On Error GoTo ErrHandler

    If Not mChart Is Nothing Then
        LogInfo MODULE_NAME, "[Chart Set] Reasignando mChart"
        Set mChart = Nothing
    End If
    Set mChart = oChart
    If Not oChart Is Nothing Then
        LogInfo MODULE_NAME, "[Chart Set] mChart asignado: " & TypeName(oChart.Parent) & "!" & oChart.Name & " @ " & ObjPtr(oChart)
    Else
        LogInfo MODULE_NAME, "[Chart Set] mChart liberado"
    End If

    Exit Property
ErrHandler:
    LogCurrentError MODULE_NAME, " [Chart Set]"
    Err.Raise Err.Number, MODULE_NAME & " [Chart Set]", Err.Description
End Property

'--------------------------------------------------------------
' Eventos de Chart
'--------------------------------------------------------------
Private Sub mChart_Activate()

    On Error GoTo ErrHandler

    LogInfo MODULE_NAME, "[clsChartEvents.Activate] " & TypeName(mChart.Parent) & "!" & mChart.Name
    If mChartMgr Is Nothing Then
        LogError MODULE_NAME, "[clsChartEvents.Activate] ParentManager es Nothing"
    Else
        mChartMgr.NotifyChartActivated mChart
    End If

    Exit Sub
ErrHandler:
    LogCurrentError MODULE_NAME, " [clsChartEvents.Activate]"
    Err.Raise Err.Number, MODULE_NAME & " [clsChartEvents.Activate]", Err.Description
End Sub

Private Sub mChart_Deactivate()

    On Error GoTo ErrHandler

    LogInfo MODULE_NAME, "[clsChartEvents.Deactivate] " & TypeName(mChart.Parent) & "!" & mChart.Name
    If mChartMgr Is Nothing Then
        LogError MODULE_NAME, "[clsChartEvents.Deactivate] ParentManager es Nothing"
    Else
        mChartMgr.NotifyChartDeactivated mChart
    End If

    Exit Sub
ErrHandler:
    LogCurrentError MODULE_NAME, " [clsChartEvents.Deactivate]"
    Err.Raise Err.Number, MODULE_NAME & " [clsChartEvents.Deactivate]", Err.Description
End Sub