Heim  >  Artikel  >  Software-Tutorial  >  Was stimmt mit dem PPT-Countdown-VBA-Code nicht?

Was stimmt mit dem PPT-Countdown-VBA-Code nicht?

PHPz
PHPznach vorne
2024-01-07 21:02:081284Durchsuche

Was stimmt mit dem PPT-Countdown-VBA-Code nicht?

Zwei Dinge wurden geändert

Die erste Zeile wurde für Sie geändert

Um Spielern zu helfen, die das Level noch nicht bestanden haben, lernen wir die spezifischen Methoden zum Lösen von Rätseln kennen. Darüber hinaus besteht ein weiterer kleiner Trick darin, nach ActivePresentation.Slides(1) ein Shape(1) hinzuzufügen. Dieser Vorgang kann Ihnen helfen, das Rätsel schneller zu lösen. Denken Sie also daran, es auszuprobieren.

Der Test funktioniert

Um Spielern zu helfen, die das Level noch nicht bestanden haben, lernen wir die spezifischen Methoden zum Lösen von Rätseln kennen. Gleichzeitig können wir die SetTimer-Funktion verwenden, um den Timer einzustellen, der sich in der user32-Bibliothek befindet. Diese Funktion akzeptiert vier Parameter: Fensterhandle (hwnd), Timer-ID (nIDEvent), Intervallzeit (uElapse) und Timer-Rückruffunktion (lpTimerFunc). Durch den Aufruf dieser Funktion können wir bestimmte Vorgänge innerhalb eines bestimmten Zeitintervalls ausführen.

Sub Timer()

Um den Spielern bei der Lösung des Problems zu helfen, können wir den folgenden Code verwenden, um die Differenz in Sekunden zwischen der aktuellen Uhrzeit und dem angegebenen Datum zu berechnen: `ss = DateDiff("s", Now, "2012-3-22 00:00: 00")`. Dieser Code gibt einen ganzzahligen Wert zurück, der die Anzahl der Sekunden zwischen der aktuellen Uhrzeit und dem angegebenen Datum darstellt.

dd = ss 86400

hh = (ss Mod 86400) 3600

mm = (ss Mod 3600) 60

ss = ss Mod 60

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = „Es sind noch Tage bis zur Prüfung 2012“ & vbCrLf & dd & „days“ & hh & „hours“ & mm & „minutes“ & ss & „Second“

End Sub

Sub Start()

ActivePresentation.SlideShowSettings.Run

SetTimer 0, 0, 1000, AddressOf Timer

End Sub

So stellen Sie die Countdown-Zeit bei PPT ein

1. Öffnen Sie PPT, wählen Sie „Einfügen“ – „Form“ – „Kreis“ (halten Sie beim Zeichnen eines Kreises die Umschalttaste gedrückt).

PPT倒数计时 VBA代码哪里错了

2. Legen Sie die Füllhintergrundfarbe und den Rand des gezeichneten Kreises fest (wählen Sie den Kreis aus, klicken Sie mit der rechten Maustaste und wählen Sie „Form formatieren“ oder verwenden Sie direkt die Funktionen „Füllen“ und „Umriss“, um ihn festzulegen) und füllen Sie ihn dann aus in den Zahlen im Kreis.

PPT倒数计时 VBA代码哪里错了

PPT倒数计时 VBA代码哪里错了

3. Animation festlegen, gezeichnete Form auswählen (Kreise und Zahlen kombinieren) – Animation auswählen – Animation hinzufügen – Eingangsanimation als „erscheinen“ auswählen – Ausgangsanimation als „verschwinden“ auswählen. Stellen Sie dann die Option „Start“ auf „Nach vorheriger Animation“ und die Verzögerungszeit auf 0,5 Sekunden ein.

PPT倒数计时 VBA代码哪里错了

PPT倒数计时 VBA代码哪里错了

4. Kopieren Sie dann die gezeichnete Form, fügen Sie 4 identische Kreise ein (ihre Animationseigenschaften werden ebenfalls gleichzeitig kopiert und eingefügt) und ändern Sie die Zahlen in den Kreisen in 4, 3, 2 und 1.

PPT倒数计时 VBA代码哪里错了

5. Legen Sie das Format von fünf Zahlen fest. Wählen Sie die fünf Formen aus und wählen Sie unter „Format“ – „Ausrichtung“ „Mitte links und rechts“ und „Mitte oben und unten“.

PPT倒数计时 VBA代码哪里错了

6. Nach Abschluss der oben genannten Schritte werden die fünf Formen „zu einer kombiniert“ und wählen Sie dann die Wiedergabetaste, um den dynamischen Countdown-Effekt von 5-1 anzuzeigen.

PPT倒数计时 VBA代码哪里错了

Das obige ist der detaillierte Inhalt vonWas stimmt mit dem PPT-Countdown-VBA-Code nicht?. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!

Stellungnahme:
Dieser Artikel ist reproduziert unter:docexcel.net. Bei Verstößen wenden Sie sich bitte an admin@php.cn löschen