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)
< p > 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
< p > 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 .