Pytanie : Móc połączenie dane punkt w przodować mapa inny mapa

I mieć mapa, i i chcieć i pojedynczy dane punkt na ten mapa ten inny mapa, być i ewentualny?

Odpowiedź : Móc połączenie dane punkt w przodować mapa inny mapa

Ty móc wydarzenie dla punkt na mapa klasowy moduł.

The próbka workbook mieć klasowy moduł wymieniać chtClass z MouseDown wydarzenie okręt podwodny. The GetChartElementID metoda, my móc che punkt klikać. Wybrany Skrzynka blok móc wtedy podporowy mapa.

Od uprzednie doświadczenia, klasowy moduł ustawianie stosownie móc troszkę chytry. I zawsze zapominać the klasowy imię w the Własność tafla w the VBA Redaktor, na przykład.

Ćwiek
(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:

'The następujący kod iść w Klasowy moduł prześcieradło wymieniać chtClass. Ty musieć the imię the mapa moduł w Własność tafla.
Jawny WithEvents cht Mapa


Intymny Okręt podwodny cht_MouseDown (ByVal Guzik Długo, ByVal Przesunięcie Długo, _
                            ByVal x Długo, ByVal y Długo)
PointClick x, y
Końcówka Okręt podwodny

Intymny Okręt podwodny PointClick (ByVal x Długo, ByVal y Długo)
Ciemnawy ElementID Długo
Ciemnawy Arg1 Długo
Ciemnawy Arg2 Długo

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

Jeżeli ElementID = xlSeries Wtedy
    Wybrany Skrzynka Arg2    'Arg1 być seria wskaźnik, Arg2 być punkt wskaźnik
    Skrzynka (1)
        Prześcieradło ("Chart1"). Aktywować
    Skrzynka 2
        Prześcieradło ("Chart2"). Aktywować
    Skrzynka 3
        Prześcieradło ("Chart3"). Aktywować
    Kończyć Wybiórka
  Kończyć Jeżeli

Kończyć Okręt podwodny


'The następujący kod iść na miarowy moduł prześcieradło
Globalny oCht Jako Nowy chtClass

Okręt podwodny ActivateChart1Events ()
Set oCht.cht = Worksheets ("Sheet1") .ChartObjects (1).Chart
Końcówka Okręt podwodny

Okręt podwodny DeactivateChart ()
  Set oCht.cht = Nic
Końcówka Okręt podwodny


'The następujący okręt podwodny iść w ThisWorkbook kod tafla
Okręt podwodny Workbook_Open ()
ActivateChart1Events
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us