Open Excel 2010 en tonen het tabblad Ontwikkelaars , indien dit nog niet is afgebeeld 1 . Klik op " File " en vervolgens " Opties". Klik op " Customize Lint " op de ruit categorieën . Selecteer "Ontwikkelaar " uit de lijst van de belangrijkste tabbladen en klik op " OK . "

Klik 2 op het tabblad " Developer " die nu moeten worden weergegeven in het lint . Klik op " Visual Basic " om de Visual Basic Editor te openen .
3

Dubbelklik op het werkblad waarin u de grafiek wilt van de pijn Project insluiten . Alle van de werkbladen die momenteel in uw project is opgenomen in het paneel . De code voor het werkblad wordt geopend in het venster Code . Als u nog niet hebt code toegevoegd aan het werkblad het venster Code zal leeg zijn .
4

Klik op "Invoegen " en vervolgens " procedure . " Typ een naam voor de procedure van de naam venster , laat alle andere opties hetzelfde en klik op " OK . " Voor het voorbeeld in dit artikel , de naam van de procedure " embedChart . "
5

Voeg de code die een grafiek zal inbedden in het werkblad . Klik tussen de " Public Sub ... " en " End Sub " verklaringen die nu in het venster Code . U zult de code toevoegen voor de procedure tussen de twee verklaringen . Microsoft heeft de code die een grafiek zal creëren en verankeren deze in de huidige spreadsheet ontwikkeld . Kopieer deze code in uw procedure of schrijf je eigen .

" Sub embedChart ( )

Dim chtNew
Zoals Grafiek

Set chtNew = Charts.Add

set chtNew = chtNew.Location ( Waar : = xlLocationAsObject , Name : = " Blad1 " ) op p Met chtNew

charttype = xl3DPie

' Stel het gegevensbereik bron voor . de grafiek

SetSourceData Bron : . . = Sheets ( " Blad1 " ) Range ( " A1 : H2 " ) . , PlotBy : . = _

xlRows

HasTitle = ware

. ChartTitle.Text = " Mijn cirkeldiagram "

End of Met

End of Sub "
6

Klik op " Opslaan " op de werkbalk Visual Basic editor en dicht . Ga naar het werkblad dat u de grafiek in embedded en controleren om te zien dat het toont .