I Microsoft Office-paketet , är Visual Basic for Applications ( VBA ) programmering skal som ger avancerade användare möjlighet att skapa komplexa och automatiserade handlingar . En av de komplexa uppgifter som du kan göra i Excel med VBA är att skapa ett diagram och bädda in den i samma kalkylblad som du arbetar . Använd " ChartObject " objektet i VBA för att skapa och bädda in ett diagram i ett Excel-kalkylblad . Instruktioner
1
Öppna Excel 2010 och visar fliken Utvecklare om den inte redan visas. Klicka på " File " och sedan " Alternativ". Klicka på " Anpassa menyfliksområdet " på kategorier panelen . Välj " Utvecklare " från listan med flikar och klicka sedan på " OK . "
2
Klicka på " Utvecklare " fliken som nu ska visas i menyfliksområdet . Klicka på " Visual Basic " för att öppna Visual Basic Editor .
3
Dubbelklicka på kalkylbladet där du vill bädda in diagrammet från Project smärta . Alla kalkylblad som finns närvarande i projektet finns med i rutan . Koden för kalkylbladet öppnas i fönstret Kod . Om du inte redan har lagt till koden till kalkylbladet koden fönstret kommer att vara tom .
4
Klicka på " Infoga " och sedan " Tillvägagångssätt ". Skriv in ett namn för proceduren i namnet fönstret , lämna alla andra alternativ i samma och sedan klicka på " OK . " För exemplet i den här artikeln , namnge proceduren " embedChart . "
5
Lägg koden som kommer att bädda ett diagram i kalkylbladet . Klicka mellan de " Public Sub ... " och " End Sub " deklarationer som nu i fönstret Kod . Du kommer att lägga till koden för förfarandet i mellan de två förklaringar . Microsoft har utvecklat den kod som kommer att skapa ett diagram och bädda in den i det aktuella kalkylbladet . Kopiera den här koden i din procedur eller skriv .
" Sub embedChart ( ) katalog
Dim chtNew Som diagram
Set chtNew = Charts.Add
set chtNew = chtNew.Location ( Var : = xlLocationAsObject , Name : = " Blad1 " ) katalog
chtNew
ChartType = xl3DPie
" Ställ dataområdet källa för . diagrammet
SetSourceData Källa : . . = Sheets ( " Blad1 " ) Range ( " A1 : H2 " ) . , PlotBy : . = _
xlRows
HasTitle = sant
. ChartTitle.Text = " My Pie Chart "
End With
End Sub "
6
klicka på" Spara " på Visual Basic Editor verktygsfält och stäng . Gå till det kalkylblad som du inbäddade diagrammet i och kontrollera att den visar .
