hey!
Ik heb een vraagje:
ik wil graag een grafiek maken binnen excel met VB, maar nu heb ik 1 probleempje. De waarden die in de grafiek moeten staan verschillen per keer ( meting ).
Sub grafiek3()
'
' grafiek3 Macro
' De macro is opgenomen op 24-3-2009 door Martijn.
'
'
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Data druk-kracht").Range("E76")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "='Data druk-kracht'!R3C5:XXXX"
ActiveChart.SeriesCollection(1).Values = "='Data druk-kracht'!R3C6:XXXX"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Data druk-kracht"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Remdruk tegen pedaalkracht"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Pedaalkracht[N]"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "remdruk[Bar]"
End With
End Sub
nou wil ik op de plaatsen waar de XXXX staat een maximale waarde hebben uit die rij. maar hoe kan ik dat verwerken in deze code?
( heb deze macro opgenomen! )
Alvast bedankt!
Ik heb een vraagje:
ik wil graag een grafiek maken binnen excel met VB, maar nu heb ik 1 probleempje. De waarden die in de grafiek moeten staan verschillen per keer ( meting ).
Sub grafiek3()
'
' grafiek3 Macro
' De macro is opgenomen op 24-3-2009 door Martijn.
'
'
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Data druk-kracht").Range("E76")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "='Data druk-kracht'!R3C5:XXXX"
ActiveChart.SeriesCollection(1).Values = "='Data druk-kracht'!R3C6:XXXX"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Data druk-kracht"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Remdruk tegen pedaalkracht"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Pedaalkracht[N]"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "remdruk[Bar]"
End With
End Sub
nou wil ik op de plaatsen waar de XXXX staat een maximale waarde hebben uit die rij. maar hoe kan ik dat verwerken in deze code?
( heb deze macro opgenomen! )
Alvast bedankt!