Microsoft Excel is een populaire spreadsheet- programma dat ook zorgt voor diagrammen en grafieken van alle rassen . Onderdeel van Microsoft Office , Excel maakt het bekijken en analyseren van gegevens snel en eenvoudig . Echter , als je nodig hebt om een groot aantal grafieken te creëren , daarbij met de hand kunnen worden tijdrovend en foutgevoelig . In plaats daarvan , kunt u overwegen met behulp van Microsoft Visual Basic . NET , Microsoft's nieuwe en verbeterde Visual Basic programmeertaal , om de taak te automatiseren . De ingebouwde Excel -integratie maakt dit een briesje . Wat je nodig hebt Microsoft Excel (ontwikkelaar of Professional editie ) op Microsoft Visual Basic . NET Toon Meer Aanwijzingen Open Visual Basic . NET 1 en creëren een nieuw project . kopen van 2 rechtermuisknop op uw project en kies Add Reference . Ga naar het tabblad COM en klik op Microsoft Excel Object Library . Klik op OK . 3 Voeg code in Belangrijkste functie van uw project om een nieuw exemplaar van de Excel- applicatie te maken . Het moet er zo uitzien : Dim excelApp als Nieuwe Microsoft.Office.Interop.Excel.Application ( ) 4 Voeg code om een nieuwe spreadsheet . Bijvoorbeeld : Dim wb Zoals Microsoft.Office.Interop.Excel.Workbook = excelApp.Workbooks.Add ( ) 5 code toe aan de primaire werkblad van de spreadsheet te halen . Bijvoorbeeld : Dim blad Zoals Microsoft.Office.Interop.Excel.Worksheet = wb.ActiveSheet 6 gegevens toevoegen aan de spreadsheet . Bijvoorbeeld , om de waarde in te stellen in het bovenste - meest linkse cel van het werkblad ( cel A1 ) tot en met 5 , cel A2 tot en met 8 , en A3 tot en met 4 , schrijven de volgende code : sheet.Cells ( 1 , 1 ) . Value = 5sheet.Cells ( 1 , 2 ) . Value = 8sheet.Cells ( 1 , 3 ) . Value = 4 Doe dit voor alle gegevens die u wilt gebruiken in uw grafiek . 7 Voeg code om de grafiek te maken : Dim grafiek Zoals Microsoft.Office.Interop.Excel.Chart = sheet.Parent.Charts.Add ( ) chart.ChartWizard ( sheet . Range ( " A1 : A3 " ) , Microsoft.Office.Interop.Excel.XlChartType.xl3DColumn , , Excel.XlRowCol.xlColumns ) 8 Voeg code voor het opzetten van de gegevensreeks voor de grafiek : Dim series Zoals Microsoft.Office.Interop.Excel.Series = chart.SeriesCollection ( 1 ) series.XValues = sheet.Range ( " A1 " , " A3 " ) op Twitter 9 Jouw grafiek is nu voltooid . U kunt het verder aanpassen met de functies van Office Developer Center op http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.chart het Microsoft Developers Network ( office.11 ) . Aspx
|