powerpoint og turntool styring
Kan jeg lave knapper i PP til at styre min turntool film..?Jeg kan jo godt lægge tnt filen ind og på turntools hjemmeside har de et eksempel på hvordan man kan stoppe sin film ...
men hvordan kan man starte den mm..??
'Toggles camera on/off animation and sound
Sub ActivateCamera()
If TNTCtrl1.ready = 1 Then
secs = DateDiff("s", onoffLastTime, Time) 'find number of seconds since last activated
If secs >= 2 Then 'only react if a least 2 seconds have passed
If onoffSwitch Then
TNTCtrl1.TNTDoCommand ("SceneGraph.Objects(*).PlayAnimation(0,106,false)")
TNTCtrl1.TNTDoCommand ("SceneGraph.Sound(1).Play()")
onoffSwitch = False
Else
TNTCtrl1.TNTDoCommand ("SceneGraph.Objects(*).PlayAnimation(106,204,false)")
TNTCtrl1.TNTDoCommand ("SceneGraph.Sound(1).Play()")
onoffSwitch = True
End If
onoffLastTime = Time 'remember current time for next time
End If
End If
End Sub
