Στο παράδειγμα που ακολουθεί δημιουργούμε ένα νέο φύλλο εργασίας, γεμίζουμε ορισμένα κελιά από έναν πίνακα και άλλα με τυχαίες τιμές και δημιουργούμε ένα γράφημα από τις τιμές αυτές.
Sub main() Dim xl As Excel.Application Dim ws As Excel.Worksheet Dim wb As Excel.Workbook Dim regions(4, 1) As String regions(0, 0) = "Europe" regions(1, 0) = "Americas" regions(2, 0) = "Asia" regions(3, 0) = "Africa" Set xl = New Excel.Application xl.Visible = True Set wb = xl.Workbooks.Add Set ws = wb.Worksheets(1) ws.Range("A2:A5") = regions For i = 2 To 5 ws.Range("B" & Format(i)).Value = i * 110 * Rnd Next i Dim chart As Excel.chart Dim rn As Range Set rn = ws.Range("A1:B5") Set chart = wb.Charts.Add chart.ChartWizard rn, xl3DPie, 7, xlColumns, 1, 1, 1, "Sales by area", "Areas", "Sales" End Sub