|
Macros fournissent un moyen d'automatiser des tâches répétitives. En utilisant une macro , vous pouvez remplacer rapidement le texte utilisé dans une présentation PowerPoint avec un nouveau texte. Au lieu de répéter manuellement une action, comme changer un mot à une phrase , mettre en place une macro et l'ajouter à la barre d'outils Accès rapide de PowerPoint. Utilisation des macros vous aide à développer la cohérence du contenu plus facilement. Choses que vous devez
PowerPoint 2007
Voir Plus Instructions
1 ouvrir votre présentation PowerPoint. Cliquez sur le bouton " Microsoft Office " et cliquez sur le bouton " Options PowerPoint " . Ensuite, cliquez sur le lien "Popular" , et sous la rubrique " Options courantes à utiliser avec PowerPoint », sélectionnez « Afficher l'onglet Développeur dans le ruban . " Cliquez sur le bouton "OK".
2 Cliquez sur le menu " développeur" puis cliquez sur le bouton "Macros " . Entrez un nom de macro , comme « SwitchText , " et indiquez où vous voulez que la macro enregistrée , généralement cette présentation. Vous pouvez éventuellement ajouter une description de la fonction de la macro exécute . Cliquez sur le bouton "Créer" et le Visual Basic pour Applications fenêtre s'ouvre.
3 Entrez ce code, par exemple , pour changer le mot «titre» à l'expression «Nouvelle présentation Titre" tout au long de la présentation.
Fermer la fenêtre Visual Basic pour Applications.
Sous SwitchText ()
PSLD As Diaporama Photos PsHP As Shape < br > pTxtRng As TextRange
pTmpRng As TextRange
strWhatReplace As String, strReplaceText As String
strWhatReplace = " Titre "
strReplaceText = "Nouveau Titre de la présentation "
Chaque PSLD En ActivePresentation.Slides
Chaque PsHP En pSld.Shapes
Set pTxtRng = pShp.TextFrame.TextRange
< p> Set pTmpRng = pTxtRng.Replace (_
FindWhat : = strWhatReplace , _
Replacewhat : = strReplaceText , _
WholeWords : = True)
Ne While Not pTmpRng n'est rien
Set pTxtRng = pTxtRng.Characters _
( pTmpRng.Start + pTmpRng.Length , pTxtRng.Length )
Set pTmpRng = pTxtRng . remplacer (_
FindWhat : = strWhatReplace , _
Replacewhat : = strReplaceText , _
WholeWords : = True)
boucle
Suivant PsHP
Suivant PSLD
End Sub
4 fermer la fenêtre.
5 Run "Basic pour Applications visuel" la macro en cliquant sur le bouton "Macro " dans le menu "Developer " . Cliquez sur le bouton "Exécuter" . Le mot «titre» sera remplacé par «Nouvelle présentation titre. "
6 modifier la macro en cliquant sur le bouton "Macro " dans le menu "Developer " . Cliquez sur le bouton «Modifier» et apporter des modifications à la chaîne de texte à faire un changement différent .
7 ajouter la macro à la " barre d'outils Accès rapide" en cliquant sur l'option " Personnaliser Quick Access Toolbar " et sélectionnant l'option « Autres commandes ... " option. Sélectionnez « Macros » des « Choisir les commandes dans ... " menu et sélectionnez votre macro. Cliquez sur le bouton "Ajouter" . Ensuite, cliquez sur le bouton "OK". Appuyez sur les touches "CTRL /S » pour enregistrer votre fichier .
|
