Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
what the problem?
hi
i want to program a chart. but i got the error(1004) in the line .XValues = xwerte. this error appears only when counter is 1. can someone help me? is the array xwerte too big? chris Dim diagramm, counter, zähler, wert, n, xwerte(50), ywerte(50) Dim diagrammobj ActiveWorkbook.ActiveSheet.ChartObjects.Add(0, 0, 800, 900).Name = "Diagramm" Set diagramm = Workbooks("Frequenz.xls").Worksheets("Motoren").Ch artObjects(1) Set diagrammobj = Workbooks("Frequenz.xls").Worksheets("Motoren").Ch artObjects(1).Chart diagrammobj.ChartType = xlXYScatterLines diagrammobj.SeriesCollection.NewSeries diagrammobj.Axes(xlCategory).MaximumScale = 6000 diagrammobj.Axes(xlValue).MaximumScale = 2500 wert = 120 For counter = 0 To 1 If counter = 0 Then For n = 0 To 50 xwerte(n) = n * 60 ywerte(n) = wert Next Else For n = 0 To 50 xwerte(n) = (n + 51) * 60 ywerte(n) = wert Next End If zähler = zähler + 1 diagrammobj.SeriesCollection.NewSeries With diagrammobj.SeriesCollection(zähler) .Border.ColorIndex = 3 .MarkerStyle = xlMarkerStyleSquare .MarkerSize = 9 .XValues = xwerte .Values = ywerte End With Next |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Colon at the end of excel file name(ex: problem.xls:1, problem.xls | New Users to Excel | |||
Started out as an Access problem. Now an Excel problem | Excel Discussion (Misc queries) | |||
problem with a conditional max problem | Excel Discussion (Misc queries) | |||
Problem when multipple users access shared xl-file at the same time, macrocode for solve this problem? | Excel Programming |