La lecture des Informations à partir d'une zone de texte dans VBA dans PowerPoint
Je viens de découvrir sur VBA hier et je vais avoir du plaisir à jouer avec elle, cependant, j'ai rencontré un problème: comment lire le contenu d'un textbox. C'est la seule zone de texte sur la diapositive et je veux qu'il soit en mesure de s'appliquer à toutes les diapositives de la présentation PowerPoint. Merci de me demander de me préciser si cela ne fait pas sens.
--EDIT--
Fondamentalement, je veux lire le contenu d'une zone de texte, simple que cela.
--EDIT--
Voici mon code actuel:
Sub answer()
Dim lCurrentView As Long
Dim myInput As String
Dim sld As Slide
Set sld = Application.ActiveWindow.View.Slide
myInput = sld.Shapes(4).TextFrame.TextRange.Text
A = InputBox(prompt:="Your Answer:")
MsgBox (myInput)
If A = myInput Then
MsgBox ("Correct!")
ActivePresentation.SlideShowWindow _
.View.GotoSlide Int(Rnd * _
ActivePresentation.Slides.Count) + 1
Else
MsgBox ("Sorry, try again...")
End If
End Sub
Vous devez vous connecter pour publier un commentaire.
Essayez d'exécuter cette macro et vérifier le résultat dans la fenêtre de Débogage (appuyez sur Ctrl+G pour ouvrir). Exécuter étape par étape (en appuyant sur F8) et de mettre des points d'arrêt (en appuyant sur F9) et vérifier le navigateur d'objet (sélectionnez une variable et appuyez sur Maj+F2)
Tapez du texte dans la première zone de texte sur la première diapositive de votre présentation. Puis ouvrir l'éditeur VBA, cliquez à droite sous "VBAProject", et sélectionnez "Ajouter un Module". Dans le nouveau module, collez le code suivant et appuyez sur le bouton "play".
Shapes(4)
avec 1. Ce nombre fait référence à l'indexation des formes sur votre diapositive.