Ciao fragliuly, benvenuta anche da parte mia.
Avrai notato che su powerpoint tutti abbiamo poca esperienza.
Con quel poco che conosco ho messo in piedi questo codice macro:
- Codice: Seleziona tutto
Dim FReady As Boolean, myFFile, timeIn As Single, timeEx As Single, mySlide As Integer
Sub ppp()
'inizializza log file
Close #11
myDir = ActivePresentation.Path & "\" '<<<
myfile = "Pippo_" & Format(Now(), "yy-mm-dd_hhmmss") & ".txt"
myFFile = myDir & myfile
Open myFFile For Output As #11
FReady = True
timeIn = Timer: mySlide = 1
Close #11
End Sub
Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
If FReady = False And SSW.View.CurrentShowPosition <> 1 Then
SSW.View.GotoSlide 1: Exit Sub
End If
'
If SSW.View.CurrentShowPosition = 1 And FReady = False Then
Call ppp 'Inizializza logger
Exit Sub
End If
'
Open myFFile For Append As #11
Print #11, "Slide " & mySlide; " - "; "Enter time " & timeIn; " - "; _
"Tempo di sosta " & Format(Timer - timeIn, "0.###"); ""
Close #11
timeIn = Timer: mySlide = SSW.View.CurrentShowPosition
End Sub
Sub OnSlideShowTerminate(ByVal Wn As SlideShowWindow)
FReady = False
End Sub
Uso:
Dalla tua presentazione premi Alt-F11 per aprire l' editor delle macro.
Menu /Inserisci /Modulo
Copia il codice e incollalo nel modulo vuoto creato
Comportamento:
la macro si attiva quando si entra in modalita' "slide show", cioe' in "Presentazione",
forza il salto alla slide 1, crea un file
nella stessa directory dove si trova la presentazione di nome "Pippo_aa-mm-gg_hh-mm-ss.txt" dove vengono loggati l' orario di entrata in una slide e il tempo di permanenza.
In caso di uscita anomala dalla presentazione, es tasto Esc, l' informazione sull' ultima slide visualizzata non viene memorizzata.
Eventuali modifiche possono consistere nel creare un nome file diverso secondo il nome del paziente.
Fai sapere se quanto proposto e' applicabile al tuo caso.
Ciao
aiutooooooooooooooo!!!! non so assolutamente come creare un codice per poter cronometrare lo scorrimento di diapositive su power point! ho usato il comando prova intervalli ma mi sono accorta che registra solo i secondi e non i decimali mentre io dovrei usare una presentazione come esercizio per un paziente (sono neuropsicologa e sto cercando di potenziare l'attenzione in pz con danni neurologici). Quindi ho "fatto in casa" un compito ma vorrei registrare i tempi di reazione per ogni slide, ovvero in presentazione ogni volta che mando avanti la slide vorrei che mi registrasse il tempo ma non in secondi come potrei fare ora con "prova intervalli", ma in ms almeno.....avete un codice per fare una macro?
