Boa tarde Amigos

Estou criando um grafico em Excel a partir do VB.
Tenho uma tabela com os 12 meses do ano, que serao relativas a 12 barras do grafico
que representarao cada um dos 12 meses do ano.Os campos se chaman Jan,fev,Mar...,Nov,Dez.

Acontece que quando aparece o nome de cada barra,aparecem os numeros de 1 a 12.Na verdade esses numeros nao representam
os numeros de cada mes e sim que existem 12 barras, de 1 a 12.

Eu gostaria de fazer aparecer o nome de cada mes ao invez dos numeros, ou seja, quero
Jan,Fev,....,Dez.

Alguem sabe como fazer isso.

Obrigado

Fiz pelo exemplo do site do macoratti com as modificações q servem para vc.

É só colar num botão igual esta aí e rodar.

 

--------------------------------------------------------------------------

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 = 12   ' numero de pontos em cada serie
Const cNumRows = 2   ' Numero de series

 

ReDim aTemp(1 To cNumRows, 1 To cNumCols)

meses = Array("Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", "Agosto", "Setembro", "Outubro", "Novembro", "Dezembro")

 

'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
    If iRow = 1 Then

        'Adiciona os meses
        aTemp(iRow, iCol) = meses(iCol - 1)
    Else

        'Coloca um valor qualquer
        aTemp(iRow, iCol) = Int(Rnd * 50) + 1
    End If
   
  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)

oSheet.Shapes(1).ScaleWidth 2.11, msoFalse, msoScaleFromTopLeft

 

' torna o Excel Visivel
oXL.Visible = True

oXL.UserControl = True

End Sub
--------------------------------------------------------------------------

 

Fonte: http://www.macoratti.net/d180102.htm

 

t+