aller à la navigation

code vba quiz PowerPoint janvier 20 2015

Infos : , ajouter un commentaire

إليكم هذا الكود وسيليه لاحقا تطبيقات

Dim UserName As String
Dim numberCorrect As Integer
Dim numberWrong As Integer

Sub YourName()
UserName = InputBox(Prompt:=”Pleae type your first name!”)
MsgBox ” Welcome to The Wolverhampton Induction Quiz ” + UserName, vbApplicationModal, ” Trial Quiz”
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub Correct()
MsgBox “Well Done! That’s the correct answer ” + UserName, vbApplicationModal, ” Trial Quiz”
numberCorrect = numberCorrect + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub Wrong()
MsgBox “Sorry! That’s incorrect ” + UserName, vbApplicationModal, ” Trial Quiz”
numberWrong = numberWrong + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub Start()
numberCorrect = 0
numberWrong = 0
YourName
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub Results()
MsgBox “Well done ” & UserName & ” You scored ” & numberCorrect & ” out of ” & numberCorrect + numberWrong, vbApplicationModal, ” Trial Quiz”
ActivePresentation.SlideShowWindow.View.Next
End Sub

انقل هذا الكود وألصقه في صفحة


              ماهي عاصمة الدولة…………؟.ppsm

 

Comment puis-je utiliser

 le code VBA dans PowerPoint

entre%20ici

PowerPoint et VBA pour PPTLive

À propos de ces pages

Mettre en place PowerPoint et Visual Basic Editor

De laisser le code!

Le VB éditeur de Windows [Haut]

Toutes ces fenêtres!

Fenêtre Explorateur de projets

fenêtres de code

Fenêtre Propriétés

fenêtre d’Explorateur d’objets

Fenêtre Exécution

Le PowerPoint Object Model [Haut]

Qu’est-ce qu’un “modèle d’objet»?

Le modèle objet de PowerPoint

Exemple de code du séminaire [Haut]

À propos les exemples de code de séminaire

Notions de base de base

Basics PowerPoint

Formulaires

Animations astuces

Quantités de masse

Divers. Exemples

Macro Recorder

Code PowerPoint spécifique [Haut]

Est-il sûr de toucher le texte?

Quel est le chemin d’accès au PPA (add-in) fichier?

Assurez-vous un chemin se termine par une barre oblique inverse

PowerPoint Version

Récupérer le lien source d’un lien

Importer des images à la bonne taille

Code d’usage général [Haut]

Remplacer une chaîne dans un fichier avec un autre

API Windows [Haut]

Sommeil

Création et distribution de solutions [Haut]

Qu’est-ce qu’un «Solution»?

Création d’un add-in

Add-ins qui créent des barres d’outils et les menus

Installation des add-ins

Autres conseils

Autres ressources, des services publics et de l’information [Haut]

Où en savoir plus, où trouver plus de code

Spécifiques à PowerPoint

Code VBA Office

Code général VB



Créer un Blog | Nouveaux blogs | Top Tags | 10 articles | blog Gratuit | Abus?