Question : Peut un lien par point de repères dans un diagramme d'exceler à un autre diagramme

J'ai un diagramme, et est-ce que je veux lier un chaque seul point de repères sur ce diagramme pour évoquer un autre diagramme, est ceci possible ? class= de

Réponse : Peut un lien par point de repères dans un diagramme d'exceler à un autre diagramme

Vous pouvez créer des événements pour cliquer un point sur un diagramme en utilisant un module de classe.

Le cahier de travail témoin a un module de classe appelé des chtClass avec un sous-marin d'événement de MouseDown. En employant la méthode de GetChartElementID, nous pouvons déterminer quel point a été cliqué. Un bloc choisi de cas peut alors lier à un diagramme de soutien.

D'expérience antérieure, l'obtention des modules de classe installés correctement peut être rusé. J'oublie toujours de placer le nom de classe dans le carreau de propriétés dans le rédacteur de VBA, par exemple.

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 :

'Le code suivant entre dans les chtClass appelés de module de classe par feuille. Vous devez placer le nom du module de diagramme dans le carreau de propriétés.
Cht public de WithEvents comme diagramme


cht_MouseDown secondaire privé (bouton de ByVal en tant que longtemps, décalage de ByVal en tant que longtemps, _
                            ByVal X en tant que longtemps, ByVal y en tant que longtemps)
PointClick X, y
Sous-marin d'extrémité

PointClick secondaire privé (ByVal X en tant que longtemps, ByVal y en tant que longtemps)
Faible ElementID en tant que longtemps
Faible Arg1 en tant que longtemps
Faible Arg2 en tant que longtemps

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

Si ElementID = puis xlSeries
    Le cas choisi Arg2    'Arg1 est l'index de série, Arg2 est index de point
    Affaire 1
        Feuilles (« Chart1 »). Activer
    Affaire 2
        Feuilles (« Chart2 »). Activer
    Affaire 3
        Feuilles (« Chart3 »). Activer
    Finir choisi
  Finir si

Finir le sous-marin


'Le code suivant va sur une feuille régulière de module
oCht global en tant que nouveaux chtClass

ActivateChart1Events secondaires ()
Placer oCht.cht = feuilles de travail (« Sheet1 ») .ChartObjects (1).Chart
Finir le sous-marin

Substrater DeactivateChart ()
  Placer oCht.cht = rien
Finir le sous-marin


'Le sous-marin suivant entre dans le carreau de code de ThisWorkbook
Workbook_Open secondaire ()
ActivateChart1Events
Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us