Nella suite Microsoft Office , Visual Basic, Applications Edition (VBA) è la shell di programmazione che offre agli utenti avanzati la possibilità di creare documenti complessi e automatizzati . Uno dei compiti complessi che si possono fare in Excel con VBA è quello di creare un grafico e incorporarlo nello stesso foglio di lavoro su cui si sta lavorando . Utilizzare l'oggetto " ChartObject " in VBA per creare e inserire un grafico in un foglio di lavoro di Excel . Istruzioni
1

Aprire Excel 2010 e visualizzare la scheda Sviluppo , se non è già visualizzato. Fare clic su "File" e poi su " Opzioni ". Clicca su " Personalizza barra multifunzione " nel riquadro Categorie . Selezionare "Sviluppatore " dalla lista delle schede principali e quindi fare clic su " OK ".

2 Fare clic sulla scheda " sviluppatori" che ora deve essere visualizzato nella barra multifunzione. Clicca su " Visual Basic " per aprire l'editor di Visual Basic .
3

doppio clic sul foglio di lavoro in cui si desidera incorporare il grafico dal dolore Progetto. Tutti i fogli di lavoro che sono attualmente nel progetto è elencato nel riquadro . Il codice per il foglio di lavoro si aprirà nella finestra del codice . Se non l'hai già aggiunto il codice per il foglio di lavoro nella finestra del codice sarà vuoto .
4

Clicca su "Inserisci" e poi "Procedura ". Digitare un nome per la procedura nella finestra del nome , lasciare tutte le altre opzioni della stessa e quindi fare clic su " OK ". Per l'esempio in questo articolo, il nome del " embedChart . " Procedura
5

Aggiungere il codice che incorporare un grafico nel foglio di lavoro . Fare clic tra le " Public Sub ... " e "End Sub " dichiarazioni che sono ora nella finestra del codice . Potrai aggiungere il codice per la procedura tra le due dichiarazioni . Microsoft ha sviluppato il codice che consente di creare un grafico e incorporarlo nel foglio di calcolo corrente . Copia questo codice nel procedimento o lascia la tua .

" EmbedChart Sub ( ) per

Dim chtNew Come Grafico

chtNew = Charts.Add

set chtNew = chtNew.Location ( Dove: = xlLocationAsObject , Name : = " Foglio1 " ) per

chtNew

ChartType = xl3DPie

' Imposta la sorgente gamma di dati per . il grafico

SetSourceData Fonte: . . = Sheets (" Foglio1 " ) Range ("A1 : H2 " ) . , PlotBy : . = _

xlRows

HasTitle = vero

. ChartTitle.Text = " il mio grafico a torta "

End With

End Sub "
6

Fare clic su " Salva " sulla barra degli strumenti e la stretta di editor di Visual Basic. Vai al foglio di lavoro che è stato incorporato il grafico in e check per vedere che sta mostrando .