Opgelost fouten in grafieken

[cow18]

zie Thisworkbook, als je het bestand opent, dan wordt via de "open" macro gemaakt dat VBA toegang (toch niet voor alle dingen) krijgt tot elk werkblad alsof er geen beveiliging op zit. Dat duurt zolang de sessie loopt, dus als je het bestand sluit is het afgelopen en moet dat bij de volgende sessie herhaalt worden.

Dan heb ik het meeste reeds proberen uit te leggen in ht bestand
Heb je meerdere grafiekn , dan kan dit in een loop

 

[Verwijderd lid 501906]

@cow18
whaaaaaaa dit is super bedankt.
Nog een hoop sleutelwerk te doen, maar dat gaat lukken
Er is namelijk een referentie waarde van 50 MHz en deze heeft altijd een afwijking van 0%
Lijkt raar als je de tabel nu ziet maar dat zijn fictieve waarden.
Deze waarde kan ik gebruiken. voor de grafiek en ik denk dat kleur aanpassen niet eens nodig is.

Mijn dank is groot en waardering gegeven!

PS je VBA is ook erg handig

 

[cow18]

oei, ik zie dat de "markers" van die 1e reeks "datums" ergens de mist in gegaan zijn.

 

[Verwijderd lid 501906]

@cow18

Bij de laatste versie van jou kreeg ik op deze regel een foutmelding:

With .ChartObjects("Grafiek 4").Chart

Maar dat heb ik verholpen door het voor alle grafieken van toepassing te laten zijn.
Nu ben ik aan het stoeien met meerdere grafieken op de pagina.
Dit zijn allemaal kopieën van elkaar en bevatten dus alle grafieklijnen deze worden alleen niet steeds allemaal getoond.
Maar daar kom ik wel uit.

' Sla de huidige zichtbaarheid van grafieklijnen op voor elke grafiek
grafiekIndex = 1
For Each grafiek In .ChartObjects
    With grafiek.Chart
        For i = 1 To .FullSeriesCollection.Count
            zichtbaarheid(grafiekIndex, i) = Not .FullSeriesCollection(i).IsFiltered
        Next i
        grafiekIndex = grafiekIndex + 1
    End With
Next grafiek

Dit lijkt te werken
moet het alleen nog wat verder testen.

Nogmaals heel erg bedankt voor de hulp

 

[cow18]

tja, "Grafiek 4" zal wel niet meer bestaan in jouw blad maar zie, je komt er uit ...