Il est souvent bon à inclure le texte de feuille de travail dans un graphique. Par exemple, si la feuille de travail sous-jacente a un titre, vous pourriez vouloir aussi utiliser ce texte comme votre titre de graphique. Pareillement, vous pourriez avoir une valeur de feuille de travail c'est rattaché au graphique, tel qu'une moyenne des valeurs dans une série et vous pourriez vouloir inclure cette valeur dans le cadre du titre de graphique ou du titre d'axe de valeur. Vous pouvez réviser simplement le texte d'objet de graphique approprié à la main pour inclure la valeur. Cependant, si cette valeur est soumise au changement (particulièrement si c'est a

la valeur calculée telle qu'une moyenne), alors vous avez besoin toujours d'actualiser l'objet de graphique à la main. Idéalement, il est excellent d'utiliser une méthode par quoi le texte de graphique est actualisé automatiquement chaque fois que le texte de feuille de travail change.

Dans les versions précédentes d'Excellent, vous pouvez faire cela tout à fait facilement en reliant un texte de graphique objecte à une cellule de feuille de travail. Vous faites cela en choisissant l'objet de texte de graphique, en tapant un égale le signe (=) pour laisser Excellent savent que vous voulez entrer dans une formule, en claquant la cellule de feuille de travail contenant le texte que vous avez voulu et ensuite la pression Entre pour confirmer la formule. Hélas, cette méthode facile et franche a été passée Surpassent 2007, qui traite maintenant des objets de texte de graphique comme les boîtes de texte pures qui ne peuvent pas inclure des formules.

Heureusement, il y a une façon de travailler autour de cette restriction en utilisant un peu de code de VBA qui profite du fait que les objets de texte de graphique ont une propriété de texte. L'idée consiste en ce que vous utilisez VBA pour mettre la propriété de texte d'un objet égale à la valeur d'une cellule de feuille de travail. Par exemple, le titre de graphique correspond à l'objet de ChartTitle, donc vous modifiez le ChartTitle. Propriété de texte.

Par exemple, supposez que le titre de feuille de travail est dans la cellule A1. Si vous voulez utiliser le même texte dans le titre de graphique, vous claquez le graphique pour l'activer et ensuite entrer dans le code suivant dans la fenêtre Visual Basic Editor’s Immediate :

NOTER

Avec le Rédacteur Fondamental Visuel ouvert (appuient sur Alt+F11), vous affichez la fenêtre Immediate en choisissant la Vue, la Fenêtre Immédiate, ou en appuyant sur Ctrl+G.

ActiveChart. ChartTitle. Texte = ActiveSheet. La gamme (”A1 ″)

Cela vous donne un titre de graphique statique. C'est-à-dire, si vous changez le titre dans la cellule A1, le titre de graphique n'actualise pas automatiquement. Ce n'est pas un problème pour un titre qui ne change pas, mais et si vous utilisez une valeur volatile telle qu'une moyenne dans le cadre du titre de graphique ? Par exemple, étant donné une feuille de travail qui affiche la moyenne d'une série de données dans la cellule C3, voici une procédure qui inclut la moyenne dans le texte de titre de graphique :

Le Public Sub WriteChartTitle ()
Avec ActiveSheet. ChartObjects (1).Chart
.ChartTitle. Le texte = “Près (la Moyenne =” & le Format (ActiveSheet. La gamme (”C3 ″), “00.0 ″) &“)”
Fin Avec
Fin Sub

La figure 1 montre le graphique avec le texte ajouté. (Notez que dans cette procédure j'ai utilisé une référence plus compliquée pour le graphique-ActiveSheet. ChartObjects (1).Chart. Cela signifie que le graphique ne doit pas être activé pour mettre le titre.)

La figure 1 le titre de Ce graphique inclut la valeur moyenne calcuÂ-lated dans la cellule C3.

C'est parfait, mais le texte de titre est toujours statique. Comment peut nous arriver Exceller pour actualiser le titre de graphique automatiquement si la moyenne change ? Il serait agréable si Excellent 2007 a offert une façon directe de le faire, mais il ne fait pas, donc nous devons prendre plus de route de manège. Spécifiquement, nous devons profiter du fait qui dans Excellent, vous pouvez piéger l'événement SheetChange, qui tire chaque fois que les données de cellule changent dans n'importe quelle feuille de travail. Suivez ces pas pour créer un dresseur pour cet événement :

1. Dans le Rédacteur Fondamental Visuel, utilisez la fenêtre Project pour vous ouvrir les VBA projettent que correÂ-sponds au cahier d'exercices qui contient votre graphique.
2. Cliquez deux fois sur l'article ThisWorkbook dans le projet. Le Rédacteur Fondamental Visuel ouvre une fenêtre de module pour l'objet de ThisWorkbook.
3. Dans la fenêtre de module, baissez l'Objet descendent la liste (au sommet du module, c'est la liste à gauche) et choisissez le Cahier d'exercices.
4. Baissez la Procédure descendent la liste (au sommet du module, c'est la liste à droite) et choisissez SheetChange. Le Rédacteur Fondamental Visuel ajoute le bout de procédure suivant :
   Sub Privé Workbook_SheetChange (ByVal Sh Comme l'Objet, la Cible de ByVal Comme la Gamme)
   Fin Sub
5. Tapez votre code de dresseur d'événement entre le Sub et la Fin les déclarations de Sub.

Dans le bout de procédure, la variable Sh représente la feuille de travail sur laquelle la valeur a changé et la variable Prévue représente l'objet de Gamme (c'est-à-dire la cellule) qui a été changé. Dans l'exemple, vous devriez vérifier pour voir si le nom du drap est le même comme le nom du drap sur lequel le graphique réside (Le texte de feuille de travail, dans ce cas-là). Si c'est, vous appelez la procédure qui écrit le titre de graphique. Voici le code :

Sub Privé Workbook_SheetChange (ByVal Sh Comme l'Objet, la Cible de ByVal Comme la Gamme)
Si Sh. Le nom = “le texte de Feuille de travail” Alors
WriteChartTitle
Fin Si
Fin Sub

Étiquettes de Technorati : texte de feuille de travail dans le graphique

Popularité : 4 % [?]

Il est souvent bon à inclure le texte de feuille de travail dans un graphique. Par exemple, si la feuille de travail sous-jacente a un titre, vous pourriez vouloir aussi utiliser ce texte comme votre titre de graphique. Pareillement, vous pourriez avoir une valeur de feuille de travail c'est rattaché au graphique, tel qu'une moyenne des valeurs dans une série et vous pourriez vouloir inclure cette valeur dans le cadre du titre de graphique ou du titre d'axe de valeur. Vous pouvez réviser simplement le texte d'objet de graphique approprié à la main pour inclure la valeur. Cependant, si cette valeur est soumise au changement (particulièrement si c'est a

la valeur calculée telle qu'une moyenne), alors vous avez besoin toujours d'actualiser l'objet de graphique à la main. Idéalement, il est excellent d'utiliser une méthode par quoi le texte de graphique est actualisé automatiquement chaque fois que le texte de feuille de travail change.

Dans les versions précédentes d'Excellent, vous pouvez faire cela tout à fait facilement en reliant un texte de graphique objecte à une cellule de feuille de travail. Vous faites cela en choisissant l'objet de texte de graphique, en tapant un égale le signe (=) pour laisser Excellent savent que vous voulez entrer dans une formule, en claquant la cellule de feuille de travail contenant le texte que vous avez voulu et ensuite la pression Entre pour confirmer la formule. Hélas, cette méthode facile et franche a été passée Surpassent 2007, qui traite maintenant des objets de texte de graphique comme les boîtes de texte pures qui ne peuvent pas inclure des formules.

Heureusement, il y a une façon de travailler autour de cette restriction en utilisant un peu de code de VBA qui profite du fait que les objets de texte de graphique ont une propriété de texte. L'idée consiste en ce que vous utilisez VBA pour mettre la propriété de texte d'un objet égale à la valeur d'une cellule de feuille de travail. Par exemple, le titre de graphique correspond à l'objet de ChartTitle, donc vous modifiez le ChartTitle. Propriété de texte.

Par exemple, supposez que le titre de feuille de travail est dans la cellule A1. Si vous voulez utiliser le même texte dans le titre de graphique, vous claquez le graphique pour l'activer et ensuite entrer dans le code suivant dans la fenêtre Visual Basic Editor’s Immediate :

NOTER

Avec le Rédacteur Fondamental Visuel ouvert (appuient sur Alt+F11), vous affichez la fenêtre Immediate en choisissant la Vue, la Fenêtre Immédiate, ou en appuyant sur Ctrl+G.

ActiveChart. ChartTitle. Texte = ActiveSheet. La gamme (”A1 ″)

Cela vous donne un titre de graphique statique. C'est-à-dire, si vous changez le titre dans la cellule A1, le titre de graphique n'actualise pas automatiquement. Ce n'est pas un problème pour un titre qui ne change pas, mais et si vous utilisez une valeur volatile telle qu'une moyenne dans le cadre du titre de graphique ? Par exemple, étant donné une feuille de travail qui affiche la moyenne d'une série de données dans la cellule C3, voici une procédure qui inclut la moyenne dans le texte de titre de graphique :

Le Public Sub WriteChartTitle ()
Avec ActiveSheet. ChartObjects (1).Chart
.ChartTitle. Le texte = “Près (la Moyenne =” & le Format (ActiveSheet. La gamme (”C3 ″), “00.0 ″) &“)”
Fin Avec
Fin Sub

La figure 1 montre le graphique avec le texte ajouté. (Notez que dans cette procédure j'ai utilisé une référence plus compliquée pour le graphique-ActiveSheet. ChartObjects (1).Chart. Cela signifie que le graphique ne doit pas être activé pour mettre le titre.)

La figure 1 le titre de Ce graphique inclut la valeur moyenne calcuÂ-lated dans la cellule C3.

C'est parfait, mais le texte de titre est toujours statique. Comment peut nous arriver Exceller pour actualiser le titre de graphique automatiquement si la moyenne change ? Il serait agréable si Excellent 2007 a offert une façon directe de le faire, mais il ne fait pas, donc nous devons prendre plus de route de manège. Spécifiquement, nous devons profiter du fait qui dans Excellent, vous pouvez piéger l'événement SheetChange, qui tire chaque fois que les données de cellule changent dans n'importe quelle feuille de travail. Suivez ces pas pour créer un dresseur pour cet événement :

1. Dans le Rédacteur Fondamental Visuel, utilisez la fenêtre Project pour vous ouvrir les VBA projettent que correÂ-sponds au cahier d'exercices qui contient votre graphique.
2. Cliquez deux fois sur l'article ThisWorkbook dans le projet. Le Rédacteur Fondamental Visuel ouvre une fenêtre de module pour l'objet de ThisWorkbook.
3. Dans la fenêtre de module, baissez l'Objet descendent la liste (au sommet du module, c'est la liste à gauche) et choisissez le Cahier d'exercices.
4. Baissez la Procédure descendent la liste (au sommet du module, c'est la liste à droite) et choisissez SheetChange. Le Rédacteur Fondamental Visuel ajoute le bout de procédure suivant :
   Sub Privé Workbook_SheetChange (ByVal Sh Comme l'Objet, la Cible de ByVal Comme la Gamme)
   Fin Sub
5. Tapez votre code de dresseur d'événement entre le Sub et la Fin les déclarations de Sub.

Dans le bout de procédure, la variable Sh représente la feuille de travail sur laquelle la valeur a changé et la variable Prévue représente l'objet de Gamme (c'est-à-dire la cellule) qui a été changé. Dans l'exemple, vous devriez vérifier pour voir si le nom du drap est le même comme le nom du drap sur lequel le graphique réside (Le texte de feuille de travail, dans ce cas-là). Si c'est, vous appelez la procédure qui écrit le titre de graphique. Voici le code :

Sub Privé Workbook_SheetChange (ByVal Sh Comme l'Objet, la Cible de ByVal Comme la Gamme)
Si Sh. Le nom = “le texte de Feuille de travail” Alors
WriteChartTitle
Fin Si
Fin Sub

Étiquettes de Technorati : texte de feuille de travail dans le graphique

Popularité : 4 % [?]