Hallo,
kann mir vielleicht einer das folgende Script so umschreiben, dass man für die Timer-Anzeige auch die Schriftgröße, -farbe und -art ändern kann?
Und wie kann ich die Position definieren?
Bin kein VB-Experte....
Hintergrund: Ein Makro unter Powerpoint für eine permanente Anzeige eines Timers, der die Systemzeit stets anzeigt....
Oder hat jemand eine ganz andere Idee, dies zu implementieren?
########################################
Public Zeitläft As Single
Public u As HeaderFooter
Sub Uhrzeit()
Dim Start As Long
If u Is Nothing Then
'Vereinbarungen zum Ablegen der Uhrzeit/Timer treffen
Set u = ActivePresentation.Slides(1).HeadersFooters.DateAndTime
u.Visible = msoTrue
u.Text = "--"
Else
'While-Schleife beenden
Set u = Nothing
Exit Sub
End If
On Error Resume Next
While Not u Is Nothing
Zeitlaeuft = ActivePresentation.SlideShowWindow.View.PresentationElapsedTime
'u.Text = Format(Time, "hh:mm:ss") & " - " & Format(Zeitläft / 3600 / 24, "hh:mm:ss")
u.Text = Format(Time, "hh:mm:ss")
Do: DoEvents
Loop While ActivePresentation.SlideShowWindow.View.PresentationElapsedTime - Zeitlaeuft > 1
Wend
End Sub
Sub Event_Open()
ActivePresentation.SlideShowSettings.Run
On Error Resume Next
End Sub
| Betreff |
Von |
Datum |
|
|
  |
Re: Timer-Darstellung
| Hi,<br><br>wie ich das verstehe möchtest du bei deiner PP die Systemzeit auf einer Folie anzeigen. Wieso schreibst du nicht einfach die Systemzeit in ein Label? Dieses kannst du dann sehr einfach... |
|
|
|
|
|
Alex
Bierhaus
|
29.08.2004 00:17 |
|
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
