sexta-feira, 26 de novembro de 2010

Rotina para geração de gráfico em Barra no Excel

Sub Grafico_Barra

On Error Goto trataerro
'seta a wsheet
xlApp.Sheets("Plan1").Select
'cria o gráfico
xlApp.Charts.Add
With xlApp.ActiveChart
.ChartArea.Select
'tipo do gráfico
.ChartType = xlColumnClustered
'//origem dos dados p/gráficos
.SetSourceData xlApp.Range(xlsheet.Cells(rows + 3, cols + 1 ), xlsheet.Cells( rows + 9, cols + 2)),2
'seta aonde o gráfico será exibido ( nova wsheet / na atual)
.Location 2, "Plan1"
End With
'alinhamento do gráfico
xlApp.ActiveSheet.Shapes(xlApp.ActiveChart.Parent.Name).Top = xlApp.ActiveSheet.Cells(rows , cols + 4 ).Top -133.5
'alinhamento do gráfico
xlApp.ActiveSheet.Shapes(xlApp.ActiveChart.Parent.Name).Left = xlApp.ActiveSheet.Cells(rows , cols + 4 ).Left + 100

Exit Sub
trataerro:
Msgbox " Erro - Rotina:'Grafico_Barra' Linha:"&Cstr(Erl)&" Tipo:"&Cstr(Erl)&" "&Cstr(Error)
Exit Sub
End Sub

Nenhum comentário:

Postar um comentário