I Microsoft Office-pakken , er Visual Basic for Applications ( VBA ) programmering skall som gir avanserte brukere muligheten til å lage komplekse og automatisert dokumenter. En av de komplekse oppgaver som du kan gjøre i Excel ved hjelp av VBA er å lage et diagram og legge den i samme regneark som du arbeider . Bruk " ChartObject " objekt i VBA for å skape og bygge et diagram i et Excel-regneark . Instruksjoner
en

Åpen Excel 2010 og vise kategorien Utvikler hvis den ikke allerede vises . Klikk på " File" og deretter " Alternativer". Klikk på " Tilpass båndet " på kategorier ruten . Velg " Developer " fra listen over hovedkategorier og klikk deretter på " OK ".
2

Klikk på " Utvikler " fanen som nå burde vises på båndet . Klikk på " Visual Basic " for å åpne Visual Basic-redigering .
3

Dobbeltklikk i regnearket der du vil bygge inn diagrammet fra Prosjekt smerte. Alle de regnearkene som er i prosjektet er oppført i ruten . Koden for regnearket åpnes i Kode-vinduet . Hvis du ikke allerede har lagt til kode til regnearket Kode-vinduet vil være tomt .
4

Klikk på " Insert" og deretter "Prosedyre ". Skriv inn et navn for prosedyren i navnet vinduet , la alle de andre alternativene den samme , og klikk deretter på " OK ". For eksemplet i denne artikkelen , for å nevne prosedyren " embedChart . "
5

Legg inn koden som vil bygge inn et diagram i regnearket. Klikk mellom "Public Sub ... " og " End Sub " erklæringer som nå er i Kode-vinduet . Du vil legge til koden for prosedyren i mellom de to erklæringene . Microsoft har utviklet kode som vil lage et diagram og legge det i gjeldende regneark. Kopier denne koden inngrepet eller skriv din egen .

" Sub embedChart ( )

Dim chtNew Som figur

Set chtNew = Charts.Add

Set chtNew = chtNew.Location ( Hvor: = xlLocationAsObject , Name : = " Ark1 " )
p Med chtNew

DiagramType = xl3DPie

' sett dataområdet kilde for . diagrammet

SetSourceData Kilde : . . = Sheets ( " Ark1 ") Range ( " A1 : H2 ") . , PlotBy : . = _

xlRows

HasTitle = sant

. ChartTitle.Text = " My Pie Chart"

End With

End Sub "
6

Klikk på " Lagre " på Visual Basic-redigering verktøylinje og nær. Gå til regnearket du innebygde diagrammet inn og sjekke for å se at det viser .