Microsoft Excel ist ein beliebtes Tabellenkalkulationsprogramm, das schafft auch Diagramme und Grafiken aller Sorten . Teil von Microsoft Office Excel macht das Betrachten und Analysieren von Daten schnell und einfach. Allerdings kann , wenn Sie brauchen, um eine große Anzahl von Diagrammen erstellen , damit von Hand zeitaufwändig und fehleranfällig. Stattdessen sollten Sie Microsoft Visual Basic. NET , Microsoft neue und verbesserte Programmiersprache Visual Basic , um die Aufgabe zu automatisieren. Seine integrierten Excel- Integration macht dies ein Kinderspiel. Things You
Microsoft Excel (Developer oder Professional Edition )
Microsoft Visual Basic. Brauchen NET
anzeigen Weitere Anweisungen
1

Öffnen Sie Visual Basic . NET und erstellen ein neues Projekt .
2

der rechten Maustaste auf Ihr Projekt , und wählen Sie Verweis hinzufügen. Gehen Sie auf die Registerkarte COM , und klicken Sie Microsoft Excel Object Library . Klicken Sie auf OK .
3

Fügen Sie Code in Ihr Projekt Main-Funktion , um eine neue Instanz der Excel -Anwendung erstellen. Es sollte wie folgt aussehen:

Dim As New excelApp Microsoft.Office.Interop.Excel.Application ()
4

Code hinzufügen , um eine neue Tabelle zu erstellen. Zum Beispiel:

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

Hinzufügen von Code , um die primäre Arbeitsblatt aus der Tabelle abzurufen. Zum Beispiel:

Dim Blatt Wie Microsoft.Office.Interop.Excel.Worksheet = wb.ActiveSheet
6

Hinzufügen von Daten zur Tabellenkalkulation . Zum Beispiel, um den Wert in der linken oberen Zelle der Tabellenkalkulation ( Zelle A1) bis 5, Zelle A2 bis 8 und A3 auf 4 gesetzt , schreiben Sie den folgenden Code:

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

tun Sie dies für alle Daten, die Sie gerne in Ihrem Diagramm verwenden möchten.
7

hinzufügen von Code , um das Diagramm zu erstellen :

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

Fügen Sie Code zum Einrichten der Datenreihen für das Diagramm :

Dim Serie Wie Microsoft.Office.Interop.Excel.Series = chart.SeriesCollection (1) = series.XValues ​​sheet.Range ( "A1" , "A3" )
9 < p> Das Diagramm ist nun abgeschlossen. Sie können es weiter anpassen Verwendung der Funktionen von der Microsoft Developers Network der Office Developer Center unter http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.chart ( office.11 ​​) zur Verfügung gestellt. Aspx