Private Sub Command1_Click()

Dim oXL As Object    ' Aplicação
Dim oBook As Object  ' workbook
Dim oSheet As Object ' Worksheet
Dim oChart As Object ' grafico Excel

Dim iRow As Integer  ' variavel para a linha atual
Dim iCol As Integer  ' variavel para coluna atual

Const cNumCols = 6   ' numero de pontos em cada serie
Const cNumRows = 2   ' Numero de series


ReDim aTemp(1 To cNumRows, 1 To cNumCols)

'inicia o Excel e cria um novo workbook
Set oXL = CreateObject("Excel.application")
Set oBook = oXL.Workbooks.Add
Set oSheet = oBook.Worksheets.Item(1)

' Inclua alguns dados nas células para as duas series
Randomize Now()
For iRow = 1 To cNumRows
  For iCol = 1 To cNumCols
    aTemp(iRow, iCol) = Int(Rnd * 50) + 1
  Next iCol
Next iRow
oSheet.Range("A1").Resize(cNumRows, cNumCols).Value = aTemp

'Inclui um objeto chart para o primeiro worksheet
Set oChart = oSheet.ChartObjects.Add(50, 40, 300, 200).Chart
oChart.SetSourceData Source:=oSheet.Range("A1").Resize(cNumRows, cNumCols)

' torna o Excel Visivel
oXL.Visible = True

oXL.UserControl = True

End Sub