Maison  >  Article  >  Tutoriel logiciel  >  Quel est le problème avec le code VBA du compte à rebours PPT ?

Quel est le problème avec le code VBA du compte à rebours PPT ?

PHPz
PHPzavant
2024-01-07 21:02:081284parcourir

Quel est le problème avec le code VBA du compte à rebours PPT

Deux choses ont été modifiées

La première ligne a été modifiée pour vous

Afin d'aider les joueurs qui n'ont pas encore réussi le niveau, découvrons les méthodes spécifiques de résolution d'énigmes. De plus, une autre petite astuce consiste à ajouter une forme (1) après ActivePresentation.Slides (1). Cette opération peut vous aider à résoudre le puzzle plus rapidement, alors n'oubliez pas de l'essayer.

Le test fonctionne

Afin d'aider les joueurs qui n'ont pas encore réussi le niveau, découvrons les méthodes spécifiques de résolution d'énigmes. En même temps, nous pouvons utiliser la fonction SetTimer pour régler la minuterie, qui se trouve dans la bibliothèque user32. Cette fonction accepte quatre paramètres : le handle de fenêtre (hwnd), l'ID de la minuterie (nIDEvent), le temps d'intervalle (uElapse) et la fonction de rappel de la minuterie (lpTimerFunc). En appelant cette fonction, nous pouvons effectuer des opérations spécifiques dans un certain intervalle de temps.

Sous-minuterie()

Pour aider les joueurs à résoudre le problème, nous pouvons utiliser le code suivant pour calculer la différence en secondes entre l'heure actuelle et la date spécifiée : `ss = DateDiff("s", Now, "2012-3-22 00:00 : 00") `. Ce code renverra une valeur entière représentant le nombre de secondes entre l'heure actuelle et la date spécifiée.

jj = ss 86400

hh = (ss Mod 86400) 3600

mm = (ss Mod 3600) 60

ss = ssMod 60

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = "Il reste encore des jours avant l'examen 2012" & vbCrLf & dd & "days" & hh & "hours" & mm & "minutes" & ss & "Deuxième"

Fin du sous-marin

Sous-Démarrer()

ActivePresentation.SlideShowSettings.Run

SetTimer 0, 0, 1000, adresse de la minuterie

Fin du sous-marin

Comment régler le compte à rebours sur PPT

1. Ouvrez PPT, sélectionnez "Insérer" - "Forme" - "Cercle" (maintenez la touche Maj enfoncée tout en dessinant un cercle).

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

2. Définissez la couleur d'arrière-plan de remplissage et la bordure du cercle dessiné (sélectionnez le cercle, cliquez avec le bouton droit et sélectionnez "Formater la forme", ou utilisez directement les fonctions "Remplir" et "Contour" pour le définir.), puis remplissez dans les chiffres dans le cercle.

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

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

3. Définissez l'animation, sélectionnez la forme dessinée (combinez les cercles et les chiffres) - sélectionnez l'animation - ajoutez une animation - sélectionnez l'animation d'entrée comme "apparaître" - sélectionnez l'animation de sortie comme "disparaître". Ensuite, définissez l'option "Démarrer" sur "Après l'animation précédente" et le délai sur 0,5 seconde.

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

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

4. Copiez ensuite la forme dessinée, collez 4 cercles identiques (leurs propriétés d'animation sont également copiées et collées en même temps) et remplacez les nombres dans les cercles par 4, 3, 2 et 1.

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

5. Définissez le format de cinq nombres. Sélectionnez cinq formes et sélectionnez "Centre gauche et droit" et "Centre haut et bas" sous "Format" - "Alignement".

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

6. Après avoir terminé les étapes ci-dessus, les cinq formes sont « combinées en une seule », puis sélectionnez le bouton de lecture pour afficher l'effet de compte à rebours dynamique de 5 à 1.

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

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!

Déclaration:
Cet article est reproduit dans:. en cas de violation, veuillez contacter admin@php.cn Supprimer