[VBA] Een TextLabel op een UserForm laten knipperen?

[Da_maniaC]

Voor een UserForm in een Excel sheet van me wil ik graag bij bepaalde uitzonderingen een TextLabel laten knipperen zodat dit opvalt voor de gebruiker.

Nu heb ik met wat zoekwerk een stukje VBA code gevonden en naar mijn eigen hand gezet, echter lijkt de routine een probleem te hebben om de code Application.OnTime uit te voeren voor een UserForm (in plaats van een gewone Module).

Heeft iemand misschien een idee hoe dit wel zou kunnen?

Dit is de code die ik gebruik:

code:

Private Sub BlinkingText()

'Deze routine laat het MutatieLogo op het formulier knipperen
'Deze routine staat hier enkel ter referentie de daadwerkelijke routine zit in de Userform_Activate() sectie

NextTime = Now + TimeValue("00:00:01")

Application.OnTime NextTime, "Update", schedule:=True

End Sub

Private Sub Update()

With Registratie.MutatieLogo
If .ForeColor = RGB(0, 0, 255) Then .ForeColor = RGB(255, 255, 0) Else .ForeColor = RGB(0, 0, 255)
End With

End Sub

Private Sub StopIt()

Application.OnTime NextTime, "BlinkingText", schedule:=False

Registratie.MutatieLogo.ForeColor = RGB(0, 0, 255)

End Sub

[ Voor 10% gewijzigd door Da_maniaC op 05-12-2016 18:21 ]

[Da_maniaC]

Iemand?

[qless]

Het zal vast wel kunnen met wat macro's, maar waarom?
Het is lelijk (zowel macro's als knipperen)

Kun je niet gewoon letter formaat/kleur van de cel e.d. groter zetten?

[Da_maniaC]

Het gaat niet om een cell maar om een TextLabel in een UserForm.

In mijn routine kent de UserForm meerdere 'modi' bijvoorbeeld: Normale invoer en Mutatie.
In geval van een Mutatie wil ik een Label laten knipperen zodat de gebruiker duidelijk ziet dat hij/zij
zich niet in de Normale invoer modus bevind. Valt net iets meer op.

En tja, noem het ook een programming challenge...we zitten hier allemaal om nieuwe dingen te leren natuurlijk.

[farlane]

Kun je vanuit een module bij je UserForm komen? If so, maak ik je form een Blink methode en roep dat aan vanuit de module.