Screenupdating

[HSV]

Hallo iedereen.

Ik ben even nieuwsgierig bij wie Office 365 ook traag is.
Sinds ongeveer december heb ik daar last van.
Laptop is super snel, dus kan me niet voorstellen dat het daaraan ligt.

Alleen onderstaande code staat in een verder geheel leeg bestand.

Sub hsv()
 'Application.ScreenUpdating = False
 MsgBox "moi"
End Sub

Zonder sceenupdating moet ik soms een aantal seconden wachten tot OK verschijnt.
Het venster geeft geen tekst en is doorzichtig zodat ik de rasterlijnen er doorheen zie.
Als ik op de spatiebalk klik is de MsgBox compleet.
En met screenupdating in de code is het ook snel en compleet (zoals het hoort).

Ik wilde er even een screenshot van maken maar dat gaat niet (MsgBox is dan compleet).
Misschien hoort deze vraag niet in deze sectie, maar hier zitten de Excellers.

Wie o wie?

 

[JEC.]

Geen problemen hier. Is alleen je msgbox traag? Je zou in ieder geval office opnieuw kunnen installeren.

 

[edmoor]

Hier ook geen enkel probleem.
Staat er misschien iets in je XLSTART dat een probleem veroorzaakt?

 

[HSV]

@JEC,

Alleen een MsgBox zoals ik het kan overzien.
Opnieuw installeren zat ik aan te denken, maar ik weet niet of ik de Office Insider terug krijg en al mijn instellingen (met een eigen lint-ontwerp) ben ik ook kwijt.

@edmoor,

Wat en waar moet ik zoeken?

 

[JEC.]

In de office insider versie zitten vaak bugs, kan mogelijk de veroorzaker zijn. Ik heb het teruggedraaid.
Al lijkt het me onwaarschijnlijk dat ze aan VBA sleutelen.

 

[OctaFish]

en al mijn instellingen (met een eigen lint-ontwerp) ben ik ook kwijt.

Eigen linten kun je exporteren en weer importeren. Dat scheelt een hoop werk bij een nieuwe installatie . Wél opletten dat je macro's etc. op dezelfde plek staan, al kun je die in het lint nog wel dynamisch maken.

 

[edmoor]

@edmoor,
Wat en waar moet ik zoeken?

Deze map zou leeg moeten zijn:

C:\Program Files (x86)\Microsoft Office\root\Office16\XLSTART

 

[HSV]

@JEC,

Dat was mijn gedachte ook.
Ik heb het verwijderd, maar biedt helaas geen soelaas.

@OctaFish,

Ik bedoel een tab met eigen ontwerp (zie bijlage tab "Eigen Ontwerp").
Misschien kun je die ook exporteren en terugzetten.
Ik wacht nog even met het verwijderen van Office.

@edmoor.

XLStart heb ik leeg gemaakt, maar helaas geen resultaat wat betreft de MsgBox.


@,

Wat ik ben vergeten is dat het venster opslaan.als in sommige gevallen ook even op zich laat wachten

Ik wacht eerst maar even nieuwe updates af.
Misschien dat jullie nog iets anders te binnen schiet.

Bedankt in ieder geval voor de genomen moeite tot zover.

 

[JEC.]

Probeer Excel eens in Safe mode te openen en kijk of het dan ook traag is. CTRL ingedrukt houden tijdens openen.

Hier nig een suggestie:

Open Excel > File > Options > Advanced > Under the Display section, check the box for 'Disable hardware graphics acceleration' > Click Ok and restart Excel

 

[HSV]

In Veilige modus ha ik al een keer geprobeerd, zonder enig verschil.

Die optie heb ik helaas niet.
Ik heb me daar rot naar gezocht in geavanceerd → Weergave.

Zie bijlage: onder de gemarkeerde blauwe lijn zou die moeten staan.

 

[Haije]

Wellicht een domme vraag, maar...

Open Excel > File > Options > Advanced > Under the Display section, check the box for 'Disable hardware graphics acceleration'

Dit impliceert dat die acceleratie wel aan staat. Klopt dat?

Lijkt mij dat je iets alleen uit kunt zetten als het aan staat.

 

[E v R]

Nog een suggestie: (als dit nog niet het geval is)
Zorg er voor dat het bestand in jouw Trusted Locations staat

 

[HSV]

Ja hoor EvR, alleen maar eigen laptop.

 

[snb]

Misschien levert dit nog verborgen bestanden en/of addins/referenties of andere vertragende elementen op:

Sub M_snb()
   MsgBox Workbooks.Count, , "bestanden"
   MsgBox AddIns.Count, , "Addins"
   MsgBox ThisWorkbook.VBProject.References.Count, , "referenties"
   MsgBox ThisWorkbook.Names.Count, , "benoemde gebieden"
    For Each it In Workbooks
        For Each it1 In it.Sheets
           y = y + it1.Shapes.Count
           x = x + it1.Cells.FormatConditions.Count
        Next
    Next
   MsgBox y, , "Shapes"
   MsgBox x, , "voorwaardelijke-opmaakregels"
End Sub

 

[E v R]

alleen maar eigen laptop.

Ik doelde op trusted locations in het Trust Center onder de Developer Tab

 

[HSV]

@snb,

1,4,5,0,0,0

@EvR,

Alles is als 'vertrouwd' aangevinkt.
Zelfs als het niet wordt aanbevolen.

 

[snb]

Jij meldt 5 referenties.
Ik dacht er standaard maar 4 geladen werden.
Heb je gekeken of er 1 niet thuishoort of 'missing' is ?

En wat gebeurt er als je die 4 Addins uitschakelt ?

 

[JEC.]

Ik zet mijn geld op herinstallatie

 

[HSV]

In een nieuw leeg bestand zijn er 4 verwijzingen.
In het bestand met alleen de MsgBox zijn het er 5.
Microsoft Forms 2.0 Object Library zit er dan bij.

Ik kan er maar een van de 5 uitschakelen; namelijk Microsoft Office 16.0 Object Labrary.
Er is verder geen Missing/Ontbrekend.

Wel een vreemde er tussen "Niet opgeslagen VBAProject" die je ook niet inschakelen kan.

 

[snb]

De locatie van 'Niet-opgeslagen VBAproject' is vreemd. Kun je daar eens kijken ?