Frage : Kann eine Verbindung ein Datenpunkt in einem übertreffendiagramm zu einem anderen Diagramm

Ich habe ein Diagramm und ich möchte einen jeden einzelnen Datenpunkt auf diesem Diagramm verbinden, um ein anderes Diagramm oben zu holen, bin möglicher dieser?

Antwort : Kann eine Verbindung ein Datenpunkt in einem übertreffendiagramm zu einem anderen Diagramm

Sie können Ereignisse für das Anklicken eines Punktes auf einem Diagramm verursachen, indem Sie ein Kategorienmodul verwenden.

Das Beispielarbeitsbuch hat ein Kategorienmodul, das chtClass mit einem MouseDown Ereignisunterseeboot genannt. Indem wir die GetChartElementID Methode anwenden, können wir feststellen, welcher Punkt angeklickt. Ein auserwählter Fallblock kann mit einem stützendiagramm dann verbinden.

Von der vorhergehenden Erfahrung Kategorienmodule kann zu erhalten richtig gegründet heikles wenig sein. Ich vergesse immer, den Kategoriennamen in der Eigenschaftenscheibe im VBA Herausgeber einzustellen, z.B.

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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

'Der folgende Code geht in ein Kategorienmodul Blatt genannte chtClass. Sie müssen den Namen des Diagrammmoduls in der Eigenschaftenscheibe einstellen.
Allgemeines WithEvents cht als Diagramm


Privates Vorcht_MouseDown (ByVal Knopf als lang, ByVal Verschiebung als lang, _
                            ByVal x als lang, ByVal y als lang)
PointClick x, y
Enden-Unterseeboot

Privates VorPointClick (ByVal x als lang, ByVal y als lang)
Schwaches ElementID als lang
Schwaches Arg1 als lang
Schwaches Arg2 als lang

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

Wenn ElementID = xlSeries dann
    Auserwählter Fall Arg2    'Arg1 ist Reihenindex, Arg2 ist Punktindex
    Rechtssache 1
        Blätter („Chart1“). Aktivieren
    Rechtssache 2
        Blätter („Chart2“). Aktivieren
    Rechtssache 3
        Blätter („Chart3“). Aktivieren
    Auserwähltes beenden
  Beenden wenn

Unterseeboot beenden


'Der folgende Code geht auf ein regelmäßiges Modulblatt
Globales oCht als neue chtClass

VorActivateChart1Events ()
Einstellen oCht.cht = Arbeitsblätter („Sheet1“) .ChartObjects (1).Chart
Unterseeboot beenden

Sub DeactivateChart ()
  Einstellen oCht.cht = nichts
Unterseeboot beenden


'Das folgende Unterseeboot geht in ThisWorkbook Codescheibe
VorWorkbook_Open ()
ActivateChart1Events
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us