Cuestión : Puede un acoplamiento al punto de referencias en una carta del sobresalir a otra carta

¿Tengo una carta, y quiero ligar un cada solo punto de referencias en esa carta para sacar a colación otra carta, soy éste posible? class= del

Respuesta : Puede un acoplamiento al punto de referencias en una carta del sobresalir a otra carta

Usted puede crear los acontecimientos para chascar un punto en una carta usando un módulo de la clase.

El libro de trabajo de la muestra tiene un módulo de la clase nombrado los chtClass con un submarino del acontecimiento de MouseDown. Usando el método de GetChartElementID, podemos determinar qué punto fue chascado. Un bloque selecto del caso puede entonces ligar a una carta favorable.

De experiencia anterior, conseguir los módulos de la clase fijados correctamente puede ser un poco difícil. Olvido siempre fijar el nombre de clase en el cristal de las características en el redactor de VBA, por ejemplo.

Brad
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:

'El código siguiente entra en chtClass nombrados del módulo de la clase una hoja. Usted debe fijar el nombre del módulo de la carta en cristal de las características.
Cht público de WithEvents como carta


cht_MouseDown secundario privado (botón de ByVal como de largo, cambio de ByVal como de largo, _
                            ByVal x como de largo, ByVal y como de largo)
PointClick x, y
Submarino del extremo

PointClick secundario privado (ByVal x como de largo, ByVal y como de largo)
ElementID dévil como de largo
Arg1 dévil como de largo
Arg2 dévil como de largo

cht.GetChartElement x, y, ElementID, Arg1, Arg2

Si ElementID = xlSeries después
    El caso selecto Arg2    'Arg1 es el índice de la serie, Arg2 es índice del punto
    Caso 1
        Hojas (“Chart1”). Activar
    Caso 2
        Hojas (“Chart2”). Activar
    Caso 3
        Hojas (“Chart3”). Activar
    Terminar selecto
  Terminar si

Terminar el submarino


'El código siguiente va en una hoja regular del módulo
oCht global como nuevos chtClass

ActivateChart1Events secundarios ()
Fijar oCht.cht = las hojas de trabajo (“Sheet1”) .ChartObjects (1).Chart
Terminar el submarino

Sub DeactivateChart ()
  Fijar oCht.cht = nada
Terminar el submarino


'El submarino siguiente entra en cristal del código de ThisWorkbook
Workbook_Open secundario ()
ActivateChart1Events
Submarino del extremo
Otras soluciones  
 
programming4us programming4us