Fråga : Kan en anknyta data peka i en överträffa kartlägger till another kartlägger

Jag har en kartlägga, och jag önskar att anknyta varje singeldata pekar på det kartlägger för att komma med upp another kartlägger, är denna möjlighet? " klar "

Svar : Kan en anknyta data peka i en överträffa kartlägger till another kartlägger

Du kan skapa händelser för att klicka en peka på en kartlägga, genom att använda en klassificeraenhet.

Ta provarbetsboken har en klassificeraenhet som namnges chtClass med en MouseDown händelsesub. Genom att använda den GetChartElementID metoden, vi kan bestämma vilka pekar klickades. Ett valt fallkvarter kan därefter anknyta till ett understödja kartlägger.

Från förflutna erfara och att få klassificerar enheter ställer in riktigt kan vara ett lite knepigt. Jag glömmer alltid till uppsättningen som klassificera som är känd i rekvisitan, förser med rutor i VBA-redaktören, till exempel.

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:

'Efter kodifiera går i en klassificeraenhet täcker namngav chtClass. Du måste uppsättningen det känt av kartläggaenheten i rekvisita förse med rutor.
Offentlig WithEvents cht som kartlägger


Privat undercht_MouseDown (ByVal knäppas som Long, den ByVal förskjutningen som Long, _,
                            ByVal x som Long, ByVal y som Long)
PointClick x, y
Avsluta suben

Privata underPointClick (ByVal x som Long, ByVal y som Long)
Dunkla ElementID som Long
Dunkel Arg1 som Long
Dunkel Arg2 som Long

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

Om ElementID = xlSeries därefter
    Det valda fallet Arg2    'Arg1 är serieindexet, Arg2 är pekar indexet
    Fall 1
        Täcker (”Chart1”). Aktivera
    Fall 2
        Täcker (”Chart2”). Aktivera
    Fall 3
        Täcker (”Chart3”). Aktivera
    Avsluta valt
  Avsluta om

Avsluta suben


'Efter kodifiera går på en stamgästenhet täcker
Global oCht som nya chtClass

UnderActivateChart1Events ()
Uppsättning oCht.cht = arbetssedlar (”Sheet1”) .ChartObjects (1). Kartlägga
Avsluta suben

Sub DeactivateChart ()
  Uppsättning oCht.cht = ingenting
Avsluta suben


'Efter under går i ThisWorkbook kodifierar förser med rutor
UnderWorkbook_Open ()
ActivateChart1Events
Avsluta suben
Andra lösningar  
 
programming4us programming4us