Probleem met grafieken inladen in userform

[loek010]

Beste forumleden,

Kan iemand mij helpen met het volgende probleem zie titel
probleem is als ik het userform open en van grafiek wil wisselen met de optionbuttons
krijg ik een foutmelding zie afbeelding :



Scrol ik echter eerst naar beneden in het werkblad tot aan het laatste grafiek
en dan het userform weer open dan werkt het wisselen van de grafieken wel
Dit gaat mijn pet te boven :shocked:

Zie bestand :

 

[HSV]

Het werkt hier uitstekend.

 

[loek010]

Hallo Harry,

Bedankt voor het kijken naar het bestand, echter zodra ik hier het bestand open
en het userform open is de eerste grafiek wel ingeladen maar kies ik hier
een ander grafiek dan krijg ik de foutcode 481 sluit ik het userform en scroll ik in het werkblad
naar beneden tot het laatste grafiek en daarna het userform weer open dan is het probleem weg
het is mij een raadsel, kan het met excel memory te maken hebben ?

 

[HSV]

Geen idee.

Alle grafieken worden netjes ingeladen.
Misschien dat het inderdaad een geheugen kwestie is.
Je kan even testen door een application.wait van een seconde aan de code toe te voegen nadat je de grafiek als jpg hebt opgeslagen en terughaalt.

 

[popipipo]

ik heb ook geen probleem met mijn microsoft365 (insider) versie

 

[loek010]

Oké de suggestie van HSV om de application.wait te proberen werkt helaas bij mij ook niet
ook nog geprobeerd om de jpg in Environ Temp te plaatsen maar zelfde resultaat
Willem bedankt voor het uitproberen als er bij 2 het goed werkt dan zit het probleem dus aan mijn kant
in Excel ik ga op zoek wat dat euvel veroorzaakt bedankt een ieder.

 

[HSV]

Jammer.

Geen idee waar de oorzaak zou kunnen liggen, maar mag ik de code eens zien hoe je 'wait' hebt toegepast?

 

[Haije]

Bij mij werkt het ook, zowel XL2010 als XL2016

 

[loek010]

@HSV(Harry)

Hierbij het stukje code

Sub ChangeChart(ChartName As String)

    Dim CurrentChart As Chart
    Dim FName As String
    
    FName = Environ("Temp") & "\Temp.jpg"
    Set CurrentChart = ThisWorkbook.Sheets("Meterstanden").ChartObjects(ChartName).Chart
    CurrentChart.Export FileName:=FName, filtername:="JPG"
    Application.Wait (Now + TimeValue("0:00:01"))
    frmCharts.imgChart.Picture = LoadPicture(FName)
End Sub

Het blijft idioot om eerst helemaal naar de laatste grafiek in het werkblad te gaan en dan werkt het feilloos :evil:

 

[HSV]

Tja, dat is wel erg vreemd.

Voeg eens een aantal seconden toe.
Verder heb ik ook geen idee.

 

[E v R]

Heb hetzelfde probleem, dit komt doordat er een plaatje wordt opgeslagen zonder inhoud (0kb)
Dit kun je oa voorkomen door de grafieken eerst even te activeren (of eenmalig op jouw scherm te laten "zien" dmv scrollen)

Pas jouw loadform-sub eens zo aan:

Private Sub LoadForm()
Dim chrt As ChartObject
    Sheets("Meterstanden").Unprotect
    For Each chrt In Sheets("Meterstanden").ChartObjects
     chrt.Activate
     Next
     Cells(1, 1).Select
    frmCharts.Show
End Sub

 

[loek010]

@E v R

Ik had me er al bij neergelegd zoals je al aangaf door eerst te scrollen.
maar ben blij dat jij ook het probleem ervaarde en heb je code toegepast en Ja nu werkt het wel,
zonder eerst te scrollen door het werkblad.
Super bedankt Eric voor je oplossing :thumb: