How to create chart using VB 6.0
- From: "Tomasz Klim" <tklim-ms@xxxxxxxxxxxxxx>
- Date: Fri, 16 Jun 2006 13:55:44 +0200
Hi
I try to create a simple line-chart from external program in Visual Basic
6.0. I already generate a quite complex Excel *** without problems, but
when I try to add chart into this ***, I don't see anything.
Can you check my code in case of errors? In general, when I created this
code, I followed Macro Recorder and existing code (dynamic series updating
on existing chart).
oExcel.GetWorkbook.Sheets("Main_Wykres").Charts.Add
With oExcel.GetExcel.ActiveChart
.ChartType = xlLine
.SetSourceData
Source:=oExcel.GetWorkbook.Sheets("Main_Macierz").Range("B2:AK16"),
PlotBy:=xlRows
.SeriesCollection(1).Name = Cells(2, 1)
.SeriesCollection(1).XValues = Range("B1:AK1")
For intSeria = 2 To 16
.SeriesCollection.NewSeries.Name = Cells(intSeria, 1)
.SeriesCollection.NewSeries.XValues = Range("B1", "AK1")
.SeriesCollection.NewSeries.Values = Range("B" & intSeria &
":AK" & intSeria)
Next
.Location Where:=xlLocationAsNew***
'.Location Where:=xlLocationAsObject, Name:="Main_Wykres"
.HasTitle = True
.ChartTitle.Text = "Multi Trend"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.Refresh
End With
.
- Prev by Date: Re: Pivot Table heading case sensitivity
- Next by Date: Re: formatting input boxes
- Previous by thread: Last Selected Cell
- Next by thread: RE: How to create chart using VB 6.0
- Index(es):
