Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub CommandButton1_Click()
With Blad1.ChartObjects("Grafiek 1").Chart.SeriesCollection.Item([COLOR=#FF0000]1[/COLOR]).Format.Line
.ForeColor.RGB = [COLOR=#FF0000]12874308[/COLOR]
.Visible = [COLOR=#FF0000]msoTrue[/COLOR] 'of msoFalse
End With
End Sub
Sub loopje()
With ActiveSheet.ChartObjects("Grafiek 1").Chart
With Range("I1")
.Value = (.Value + 1) Mod 4
i = .Value
End With
.FullSeriesCollection(1).IsFiltered = i \ 2
.FullSeriesCollection(2).IsFiltered = i Mod 2
End With
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.