Microsoft Excel er et populært regnearkprogram som også skaper diagrammer og grafer i alle varianter . En del av Microsoft Office, gjør Excel visning og analysere data raskt og enkelt. Men kanskje hvis du trenger for å lage et stort antall kart , gjøre det for hånd være tidkrevende og utsatt for feil . I stedet vurdere å bruke Microsoft Visual Basic. NET , Microsofts nye og forbedrede Visual Basic programmeringsspråk, som automatiserer oppgaven . Den innebygde Excel integrasjon gjør dette til en lek. Du trenger
Microsoft Excel ( Developer eller Professional Edition )
Microsoft Visual Basic. NET
Vis flere instruksjoner
en

Åpne Visual Basic. NET og skape et nytt prosjekt .
2

Høyreklikk på prosjektet og velg Add Reference . Gå til COM- fanen og deretter Microsoft Excel Object Library. Klikk på OK.
3

Legg til kode i prosjektets hovedformål å skape en ny forekomst av Excel-programmet . Det skal se slik ut : en

Dim excelApp som ny Microsoft.Office.Interop.Excel.Application ( )
4

Legg til kode for å opprette et nytt regneark. For eksempel : en

Dim wb As Microsoft.Office.Interop.Excel.Workbook = excelApp.Workbooks.Add ( )
5

Legg til kode for å hente den primære regnearket fra regnearket . For eksempel : en

Dim ark Som Microsoft.Office.Interop.Excel.Worksheet = wb.ActiveSheet
6

Legge til data i regnearket. For eksempel vil angi verdien i øverste venstre cellen i regnearket (celle A1 ) til 5 , celle A2 til 8 , og A3 til 4 , skriv inn følgende kode :

sheet.Cells ( 1 , 1 ) . Verdi = 5sheet.Cells ( 1 , 2 ) . Verdi = 8sheet.Cells ( 1 , 3 ) . Verdi = 4

Gjør dette for alle dataene du ønsker å bruke i diagrammet .
7

Legg koden for å lage figuren : en

Dim diagram Som Microsoft.Office.Interop.Excel.Chart = sheet.Parent.Charts.Add ( ) chart.ChartWizard (ark . Range (" A1 : A3" ) , Microsoft.Office.Interop.Excel.XlChartType.xl3DColumn , , Excel.XlRowCol.xlColumns )
8

Legg til kode for å sette opp dataseriene for diagrammet : en

Dim serien Som Microsoft.Office.Interop.Excel.Series = chart.SeriesCollection ( 1 ) series.XValues ​​= sheet.Range ( "A1" , " A3" )
9 < p> Din diagrammet er nå fullført. Du kan tilpasse den ytterligere ved hjelp av funksjonene som tilbys av Microsoft Developers Network Office Developer Center på http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.chart ( office.11 ​​) . Aspx