I Microsoft Office-pakken , er Visual Basic for Applications ( VBA ) programmeringen shell, der giver avancerede brugere mulighed for at skabe komplekse og automatiserede dokumenter. En af de komplekse opgaver, som du kan gøre i Excel ved hjælp af VBA er at skabe et diagram og integrere den i det samme regneark , som du arbejder . Brug " ChartObject " objekt i VBA til at oprette og integrere et diagram i et Excel-regneark . Instruktioner
1

Open Excel 2010 og vise fanen Udvikler , hvis den ikke allerede vises . Klik på " File" og derefter " Indstillinger". Klik på " Tilpas båndet " i Categories -ruden. Vælg "Udvikler " fra listen over primære faner og klik derefter på "OK".
2

Klik på "Udvikler "-fanen , der nu skal vise på båndet . Klik på " Visual Basic " for at åbne Visual Basic Editor.
3

Dobbeltklik på det regneark , hvor du ønsker at integrere diagrammet fra Project smerter. Alle de regneark , der i øjeblikket i dit projekt er opført i ruden. Koden til regnearket åbner i kodevinduet . Hvis du ikke allerede har tilføjet kode til regnearket vinduet Kode vil være tomt.
4

Klik på "Indsæt" og derefter " Procedure ". Skriv et navn til den procedure i navnet vinduet lade alle de andre muligheder er de samme , og klik derefter på " OK". For eksempel i denne artikel, navngive proceduren " embedChart . "
5

Tilføj den kode, der vil indlejre et diagram i regnearket. Klik mellem " Public Sub ... " og " End Sub " erklæringer , der nu er i kodevinduet . Du vil tilføje koden for proceduren i mellem de to erklæringer . Microsoft har udviklet den kode, der vil oprette et diagram og integrere den i det aktuelle regneark . Kopier denne kode i din procedure eller skriv din egen .

"Sub embedChart ()

Dim chtNew Som Chart

Set chtNew = Charts.Add

Set chtNew = chtNew.Location ( Hvor: = xlLocationAsObject , navn: = " Ark1 " )

chtNew

ChartType = xl3DPie

' sæt dataområdet kilde til . diagrammet

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

xlRows

HasTitle = ægte

. ChartTitle.Text = " My Pie Chart "

End With

End Sub "
6

klikke på" Gem " på Visual Basic editor værktøjslinjen og lukke. Gå til regnearket , som du indlejret diagrammet i og kontrollere, at det viser .