Microsoft Excel är ett populärt kalkylprogram som också skapar diagram och grafer av alla sorter . En del av Microsoft Office , gör Excel visa och analysera data snabbt och enkelt . Men kanske om du behöver skapa ett stort antal diagram , gör det för hand vara tidskrävande och felbenägen . Istället överväga att använda Microsoft Visual Basic . NET , Microsofts nya och förbättrade Visual Basic programmeringsspråk , för att automatisera uppgiften . Dess inbyggda Excel integration gör det en bris . Saker du behöver
Microsoft Excel ( Developer och Professional Edition ) katalog Microsoft Visual Basic . NET
Visa fler instruktioner
1
Öppna Visual Basic . NET och skapa ett nytt projekt .
2
Högerklicka på projektet och välj Add Reference . Gå till COM -fliken och klicka på Microsoft Excel Object Library . Klicka på OK .
3
Lägg koden i ditt projekt huvuduppgift att skapa en ny instans av Excel-program . Det bör se ut så här :
Dim excelApp Som New Microsoft.Office.Interop.Excel.Application ( )
4
Lägg koden för att skapa ett nytt kalkylblad . Till exempel :
Dim wb Som Microsoft.Office.Interop.Excel.Workbook = excelApp.Workbooks.Add ( )
5
Lägg koden för att hämta den primära kalkylbladet från kalkylbladet . Till exempel :
Dim ark Som Microsoft.Office.Interop.Excel.Worksheet = wb.ActiveSheet
6
lägga till data i kalkylbladet . Till exempel , för att ställa in värdet i det övre vänstra cellen i kalkylbladet ( A1 ) till 5 , cell A2 till 8 , och A3 till 4 , skriv följande kod :
sheet.Cells ( 1 , 1 ) . Value = 5sheet.Cells ( 1 , 2 ) . Value = 8sheet.Cells ( 1 , 3 ) . Value = 4
Gör detta för alla data som du vill använda i diagrammet .
7
Lägg koden för att skapa diagrammet :
Dim diagrammet 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
Lägg koden för att ställa in dataserier för diagrammet :
Dim serien Microsoft.Office.Interop.Excel.Series = chart.SeriesCollection ( 1 ) series.XValues = sheet.Range ( " A1 " , " A3 " )
9
Din diagrammet är nu klar . Du kan skräddarsy den vidare med hjälp av de funktioner som Microsoft Developers Network Office Developer Center på http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.chart ( office.11 ) . Aspx Addera
