È spesso comodo includere il testo di foglio di programmazione in un grafico. Ad esempio, se il foglio di programmazione sottostante ha un titolo, potrebbero anche volere usare quel testo come il Loro titolo di grafico. Allo stesso modo, potrebbero avere un valore di foglio di programmazione questo è collegato al grafico, come una media dei valori in una serie, e potrebbero volere includere quel valore come parte del titolo di grafico o il titolo d'asse di valore. Possono semplicemente curare il testo dell'oggetto di grafico adatto a mano per includere il valore. Comunque, se quel valore è soggetto a cambiamento (particolarmente se è a

il valore calcolato come una media), allora hanno bisogno di sempre aggiornare l'oggetto di grafico a mano. Perfettamente, è grande usare un metodo per mezzo di cui il testo di grafico è aggiornato automaticamente ogni volta che il testo di foglio di programmazione cambia.

In versioni precedenti di Eccellono, possono fare questo abbastanza facilmente collegando un testo di grafico disapprova una cella di foglio di programmazione. Fanno questo scegliendo l'oggetto di testo di grafico, battendo a macchina uguaglia a segno (=) per lasciare Eccellono sanno che vogliono entrare in una formula, cliccando la cella di foglio di programmazione che contiene il testo che hanno voluto, e poi l'insistenza Entra per confermare la formula. Ahimè, quel metodo facile e diritto è stato lasciato cadere in Superano il 2007, che adesso tratta oggetti di testo di grafico come scatole di testo pure che non possono includere formule.

Fortunatamente, c'è un modo di lavorare intorno a questa restrizione usando un po' codice di VBA che approfitta del fatto che gli oggetti di testo di grafico hanno una proprietà di testo. L'idea è quella che usano VBA per mettere la proprietà di testo di un oggetto uguale al valore di una cella di foglio di programmazione. Ad esempio, il titolo di grafico corrisponde all'oggetto di ChartTitle, allora modificano ChartTitle. Proprietà di testo.

Ad esempio, suppongano che il titolo di foglio di programmazione è in cella A1. Se vogliono usare lo stesso testo nel titolo di grafico, cliccano il grafico per attivarlo e poi entrare nel codice seguente nella finestra Visual Basic Editor's Immediate:

ANNOTARE

Con il Redattore Fondamentale Visivo aperto (premono Alt+F11), visualizzano la finestra Immediate scegliendo la Vista, la Finestra Immediata, o premendo Ctrl+G.

ActiveChart. ChartTitle. Testo = ActiveSheet. Gamma (”A1 ″)

Questo Gli dà un titolo di grafico statico. È, se cambiano il titolo in cella A1, il titolo di grafico automaticamente non aggiorna. Questo non è un problema per un titolo che non cambia, ma che se usano un valore volatile come una media come parte del titolo di grafico? Ad esempio, dato un foglio di programmazione che visualizza la media di una serie di dati in cella C3, qui è una procedura che include la media nel testo di titolo di grafico:

Sub pubblico WriteChartTitle ()
Con ActiveSheet. ChartObjects (1).Chart
.ChartTitle. Testo = “Vicino (Media =” & Formato (ActiveSheet. Gamma (”C3 ″), “00.0 ″) &“)”
Fine con
Fine Sub

La cifra 1 mostra il grafico con il testo aggiunto. (Annotino che in questa procedura ho usato una referenza più elaborata al grafico-ActiveSheet. ChartObjects (1).Chart. Questo significa che il grafico non deve esser attivato per mettere il titolo. )

La cifra 1 il titolo di questo grafico include il valore medio calcuÂ-lated in cella C3.

Questo è eccellente, ma il testo di titolo è ancora statico. Come può noi arrivare Eccellere per aggiornare il titolo di grafico automaticamente se la media cambia? Sarebbe carino se Eccellono il 2007 ha offerto un modo diretto di fare questo, ma non fa, allora dobbiamo prendere un itinerario più indiretto. Chiaramente, dobbiamo approfittare del fatto che in Eccellono, possono intrappolare l'evento di SheetChange, che spara ogni volta che i dati di cella cambiano in qualsiasi foglio di programmazione. Seguano questi passi per creare un addestratore per quest'evento:

1. Nel Redattore Fondamentale Visivo, usino la finestra Project per aprirsi i VBA progettano che correÂ-sponds al libro di esercizi che contiene il Loro grafico.
2. Facciano doppio clic sull'articolo di ThisWorkbook nel progetto. Il Redattore Fondamentale Visivo apre una finestra di modulo per l'oggetto di ThisWorkbook.
3. Nella finestra di modulo, tirino giù la lista di goccia giù d'Oggetto (in cima al modulo, è la lista a sinistra) e scelgano il Libro di esercizi.
4. Tirino giù la lista di goccia giù di Procedura (in cima al modulo, è la lista a destra) e scelgano SheetChange. Il Redattore Fondamentale Visivo aggiunge il troncone di procedura seguente:
   Sub Workbook_SheetChange privato (ByVal Sh come oggetto, obiettivo di ByVal come gamma)
   Fine Sub
5. Battano a macchina il Loro codice d'addestratore d'evento tra le affermazioni di End Sub e di Sub.

Nel troncone di procedura, la variabile di Sh rappresenta il foglio di programmazione su cui il valore cambiato, e la variabile d'Obiettivo rappresenta l'oggetto di Gamma (che è, la cella) che è stato cambiato. Nell'esempio, devono chiedere per vedere se il nome del foglio è lo stesso come nome del foglio su cui il grafico risiede (Il testo di foglio di programmazione, in questo caso). Se è, chiamano la procedura che scrive il titolo di grafico. Qui è il codice:

Sub Workbook_SheetChange privato (ByVal Sh come oggetto, obiettivo di ByVal come gamma)
Se Sh. Nome = “testo di foglio di programmazione” allora
WriteChartTitle
Fine se
Fine Sub

Etichette di Technorati: testo di foglio di programmazione in grafico

Popolarità: Il 4% [?]

È spesso comodo includere il testo di foglio di programmazione in un grafico. Ad esempio, se il foglio di programmazione sottostante ha un titolo, potrebbero anche volere usare quel testo come il Loro titolo di grafico. Allo stesso modo, potrebbero avere un valore di foglio di programmazione questo è collegato al grafico, come una media dei valori in una serie, e potrebbero volere includere quel valore come parte del titolo di grafico o il titolo d'asse di valore. Possono semplicemente curare il testo dell'oggetto di grafico adatto a mano per includere il valore. Comunque, se quel valore è soggetto a cambiamento (particolarmente se è a

il valore calcolato come una media), allora hanno bisogno di sempre aggiornare l'oggetto di grafico a mano. Perfettamente, è grande usare un metodo per mezzo di cui il testo di grafico è aggiornato automaticamente ogni volta che il testo di foglio di programmazione cambia.

In versioni precedenti di Eccellono, possono fare questo abbastanza facilmente collegando un testo di grafico disapprova una cella di foglio di programmazione. Fanno questo scegliendo l'oggetto di testo di grafico, battendo a macchina uguaglia a segno (=) per lasciare Eccellono sanno che vogliono entrare in una formula, cliccando la cella di foglio di programmazione che contiene il testo che hanno voluto, e poi l'insistenza Entra per confermare la formula. Ahimè, quel metodo facile e diritto è stato lasciato cadere in Superano il 2007, che adesso tratta oggetti di testo di grafico come scatole di testo pure che non possono includere formule.

Fortunatamente, c'è un modo di lavorare intorno a questa restrizione usando un po' codice di VBA che approfitta del fatto che gli oggetti di testo di grafico hanno una proprietà di testo. L'idea è quella che usano VBA per mettere la proprietà di testo di un oggetto uguale al valore di una cella di foglio di programmazione. Ad esempio, il titolo di grafico corrisponde all'oggetto di ChartTitle, allora modificano ChartTitle. Proprietà di testo.

Ad esempio, suppongano che il titolo di foglio di programmazione è in cella A1. Se vogliono usare lo stesso testo nel titolo di grafico, cliccano il grafico per attivarlo e poi entrare nel codice seguente nella finestra Visual Basic Editor's Immediate:

ANNOTARE

Con il Redattore Fondamentale Visivo aperto (premono Alt+F11), visualizzano la finestra Immediate scegliendo la Vista, la Finestra Immediata, o premendo Ctrl+G.

ActiveChart. ChartTitle. Testo = ActiveSheet. Gamma (”A1 ″)

Questo Gli dà un titolo di grafico statico. È, se cambiano il titolo in cella A1, il titolo di grafico automaticamente non aggiorna. Questo non è un problema per un titolo che non cambia, ma che se usano un valore volatile come una media come parte del titolo di grafico? Ad esempio, dato un foglio di programmazione che visualizza la media di una serie di dati in cella C3, qui è una procedura che include la media nel testo di titolo di grafico:

Sub pubblico WriteChartTitle ()
Con ActiveSheet. ChartObjects (1).Chart
.ChartTitle. Testo = “Vicino (Media =” & Formato (ActiveSheet. Gamma (”C3 ″), “00.0 ″) &“)”
Fine con
Fine Sub

La cifra 1 mostra il grafico con il testo aggiunto. (Annotino che in questa procedura ho usato una referenza più elaborata al grafico-ActiveSheet. ChartObjects (1).Chart. Questo significa che il grafico non deve esser attivato per mettere il titolo. )

La cifra 1 il titolo di questo grafico include il valore medio calcuÂ-lated in cella C3.

Questo è eccellente, ma il testo di titolo è ancora statico. Come può noi arrivare Eccellere per aggiornare il titolo di grafico automaticamente se la media cambia? Sarebbe carino se Eccellono il 2007 ha offerto un modo diretto di fare questo, ma non fa, allora dobbiamo prendere un itinerario più indiretto. Chiaramente, dobbiamo approfittare del fatto che in Eccellono, possono intrappolare l'evento di SheetChange, che spara ogni volta che i dati di cella cambiano in qualsiasi foglio di programmazione. Seguano questi passi per creare un addestratore per quest'evento:

1. Nel Redattore Fondamentale Visivo, usino la finestra Project per aprirsi i VBA progettano che correÂ-sponds al libro di esercizi che contiene il Loro grafico.
2. Facciano doppio clic sull'articolo di ThisWorkbook nel progetto. Il Redattore Fondamentale Visivo apre una finestra di modulo per l'oggetto di ThisWorkbook.
3. Nella finestra di modulo, tirino giù la lista di goccia giù d'Oggetto (in cima al modulo, è la lista a sinistra) e scelgano il Libro di esercizi.
4. Tirino giù la lista di goccia giù di Procedura (in cima al modulo, è la lista a destra) e scelgano SheetChange. Il Redattore Fondamentale Visivo aggiunge il troncone di procedura seguente:
   Sub Workbook_SheetChange privato (ByVal Sh come oggetto, obiettivo di ByVal come gamma)
   Fine Sub
5. Battano a macchina il Loro codice d'addestratore d'evento tra le affermazioni di End Sub e di Sub.

Nel troncone di procedura, la variabile di Sh rappresenta il foglio di programmazione su cui il valore cambiato, e la variabile d'Obiettivo rappresenta l'oggetto di Gamma (che è, la cella) che è stato cambiato. Nell'esempio, devono chiedere per vedere se il nome del foglio è lo stesso come nome del foglio su cui il grafico risiede (Il testo di foglio di programmazione, in questo caso). Se è, chiamano la procedura che scrive il titolo di grafico. Qui è il codice:

Sub Workbook_SheetChange privato (ByVal Sh come oggetto, obiettivo di ByVal come gamma)
Se Sh. Nome = “testo di foglio di programmazione” allora
WriteChartTitle
Fine se
Fine Sub

Etichette di Technorati: testo di foglio di programmazione in grafico

Popolarità: Il 4% [?]