Pergunta : Pode uma ligação um o ponto de dados em uma carta primar a uma outra carta

Eu tenho uma carta, e eu quero lig cada único ponto de dados nessa carta para trazer acima uma outra carta, sou este possível? class= do

Resposta : Pode uma ligação um o ponto de dados em uma carta primar a uma outra carta

Você pode criar eventos para estalar um ponto em uma carta usando um módulo da classe.

O manual de instruções da amostra tem um módulo da classe nomeado chtClass com um submarino do evento de MouseDown. Usando o método de GetChartElementID, nós podemos determinar que ponto foi estalado. Um bloco seleto do caso pode então lig a uma carta de apoio.

Da experiência anterior, começ os módulos da classe setup corretamente pode ser uma pouco complicada. Eu esqueço sempre ajustar o nome de classe na placa das propriedades no editor de VBA, por exemplo.

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:

'O seguinte código vai em chtClass nomeados do módulo da classe uma folha. Você deve ajustar o nome do módulo da carta na placa das propriedades.
Cht público de WithEvents como a carta


cht_MouseDown secundário confidencial (tecla de ByVal como por muito tempo, deslocamento de ByVal como por muito tempo, _
                            ByVal x como por muito tempo, ByVal y como por muito tempo)
PointClick x, y
Submarino da extremidade

PointClick secundário confidencial (ByVal x como por muito tempo, ByVal y como por muito tempo)
ElementID não ofuscante como por muito tempo
Arg1 não ofuscante como por muito tempo
Arg2 não ofuscante como por muito tempo

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

Se ElementID = xlSeries então
    O caso seleto Arg2    'Arg1 é o índice da série, Arg2 é índice do ponto
    Caso 1
        Folhas (“Chart1”). Ativar
    Caso 2
        Folhas (“Chart2”). Ativar
    Caso 3
        Folhas (“Chart3”). Ativar
    Terminar seleto
  Terminar se

Terminar o submarino


'O seguinte código vai em uma folha regular do módulo
oCht global como chtClass novos

ActivateChart1Events secundários ()
Ajustar oCht.cht = folhas (“Sheet1”) .ChartObjects (1). Carta
Submarino da extremidade

DeactivateChart secundário ()
  Ajustar oCht.cht = nada
Terminar o submarino


'O seguinte submarino vai na placa do código de ThisWorkbook
Workbook_Open secundário ()
ActivateChart1Events
Submarino da extremidade
Outras soluções  
 
programming4us programming4us