Christian Evers
Gebruiker
- Lid geworden
- 29 okt 2001
- Berichten
- 93
Hallo!
Ik heb een lading tabellen onder elkaar en wil daar meerdere dezelfde grafieken van maken. Nu heb ik hiervoor zelf een opzet gemaakt maar Excel wil er niet aan. Ziet er als volgt uit:
Het probleem zit in de 4e regel waar ik de teller i wil gebruiken. Ik doe iets verkeerd, maar wat?
In de bijlage een voorbeeld van de data:
Ik heb een lading tabellen onder elkaar en wil daar meerdere dezelfde grafieken van maken. Nu heb ik hiervoor zelf een opzet gemaakt maar Excel wil er niet aan. Ziet er als volgt uit:
PHP:
Sub Macro8()
'
' Macro8 Macro
' Macro recorded 10/1/2003 by Christian Evers
'
'
For i = 0 To 5
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("K30 alles").Range("M[3 + (i*30)]:X[14 + (i*30)]"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="K30 alles"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Richting"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Intensiteit"
End With
ActiveChart.HasLegend = False
Next i
End Sub
Het probleem zit in de 4e regel waar ik de teller i wil gebruiken. Ik doe iets verkeerd, maar wat?
In de bijlage een voorbeeld van de data: