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