Hallo allemaal,
Ik wil een powerpoint maken met onder in beeld een rondje wat draait en aangeeft hoeveel calorieen de kijkers intussen hadden kunnen verbranden. Wanneer ik dit debug lijkt alles te werken, maar wanneer ik dan de presentatie start valt dit tegen. Dit heb ik in elkaar geflanst:
En het wordt gestart door dit:
Ik weet dat het programma wel start want ik krijg eerst een msgbox met 1 en daarna met 0. Dus aan de voorwaarde < 9 voldoet hij wel, en er wordt ook daadwerkelijk een 0 geschreven in "Oval 4". Dan kan ik me alleen indenken dat mijn timer constructie niet werkt, maar deze heeft wel gewerkt dacht ik en ik zie geen enkele reden waarom de i intussen veranderd zou zijn. Alleen zie ik compleet geen fout, Timer en Start zijn gelijk aan het begin en Start krijgt daar 4 seconden (Ik denk dat dat die iTime=4 doet) bij. Toch gebeurt er niets en weet ik bijna zeker dat het deze stap is en ik weet niet waarom. Iemand ideeen?
Bedankt voor het meedenken!
Ik kan het bestand niet als pptm uploaden, ik weet niet of dat een probleem is? Anders hoor ik het wel.
Ik zie dat er ook een vba gedeelte is, vraag het daar wel. Is de betere plek
Ik wil een powerpoint maken met onder in beeld een rondje wat draait en aangeeft hoeveel calorieen de kijkers intussen hadden kunnen verbranden. Wanneer ik dit debug lijkt alles te werken, maar wanneer ik dan de presentatie start valt dit tegen. Dit heb ik in elkaar geflanst:
Code:
Sub cal()
i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
MsgBox (i)
Cal_B = 0
MsgBox (Cal_B)
While Cal_B < 9
With ActivePresentation.Slides(1).Shapes("Oval 4")
.TextFrame.TextRange.Text = Cal_B
iTime = 4
Start = Timer
While Timer < Start + iTime
If i = 1 Then
Cal_B = Cal_B + 1
Else: End
End If
Wend
End With
Wend
End SubEn het wordt gestart door dit:
Code:
Sub OnSlideShowPageChange()
i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
If i = 1 Then
Call cal
End If
End SubIk weet dat het programma wel start want ik krijg eerst een msgbox met 1 en daarna met 0. Dus aan de voorwaarde < 9 voldoet hij wel, en er wordt ook daadwerkelijk een 0 geschreven in "Oval 4". Dan kan ik me alleen indenken dat mijn timer constructie niet werkt, maar deze heeft wel gewerkt dacht ik en ik zie geen enkele reden waarom de i intussen veranderd zou zijn. Alleen zie ik compleet geen fout, Timer en Start zijn gelijk aan het begin en Start krijgt daar 4 seconden (Ik denk dat dat die iTime=4 doet) bij. Toch gebeurt er niets en weet ik bijna zeker dat het deze stap is en ik weet niet waarom. Iemand ideeen?
Bedankt voor het meedenken!
Ik kan het bestand niet als pptm uploaden, ik weet niet of dat een probleem is? Anders hoor ik het wel.
Ik zie dat er ook een vba gedeelte is, vraag het daar wel. Is de betere plek
Laatst bewerkt:
