Makros bieten eine Möglichkeit der Automatisierung sich wiederholender Aufgaben . Mit einem Makro können Sie schnell ersetzen Sie den Text während einer PowerPoint-Präsentation mit neuen Text verwendet werden. Anstelle der manuellen Wiederholung einer Aktion , wie ein Wort zu ändern , um eine Phrase , die Einrichtung eines Makro und fügen Sie es Quick Access Toolbar PowerPoint . Mit Makros hilft Ihnen, konsistente Inhalte leichter . Things You
PowerPoint 2007
brauchen anzeigen Weitere Anweisungen
1
Öffnen Sie Ihre PowerPoint-Präsentation. Klicken Sie auf die " Microsoft Office "-Taste und klicken Sie auf die " PowerPoint-Optionen " klicken. Dann klicken Sie auf den "Popular "-Link , und unter " Top Optionen für das Arbeiten mit PowerPoint ", wählen Sie "Show Registerkarte Entwicklertools in der Multifunktionsleiste. " Klicken Sie auf die Schaltfläche "OK" .
2
Klicken Sie auf die "Entwickler "-Menü und klicken Sie auf " Makros" -Taste. Geben Sie einen Makronamen , wie " SwitchText ", und angeben, wo Sie das Makro gespeichert , in der Regel wollen diese Präsentation . Fügen Sie optional eine Beschreibung der Funktion das Makro ausführt. Klicken Sie auf die Schaltfläche "Erstellen" und die Visual Basic für Applikationen wird geöffnet.
3
Gib diesen Code ein , zum Beispiel , um das Wort "Titel" der Begriff " Neue Präsentation Titel " wechseln während der Präsentation .
Schließen Sie den Visual Basic for Applications -Fenster.
Sub SwitchText () Dim
pSld Als Slide
Dim PSHP Als Form
Dim pTxtRng Wie TextRange
Dim pTmpRng Wie TextRange
Dim strWhatReplace As String , strReplaceText As String
strWhatReplace = "Title"
strReplaceText = "Neuer Titel der Präsentation "
For Each pSld In ActivePresentation.Slides
For Each PSHP In pSld.Shapes
Set pTxtRng = pShp.TextFrame.TextRange
< p> Set pTmpRng = pTxtRng.Replace (_
FindWhat : = strWhatReplace , _
Replacewhat : = strReplaceText , _
WholeWords : = True)
< p > Do While Not pTmpRng Is Nothing
Set pTxtRng = _ pTxtRng.Characters
( pTmpRng.Start + pTmpRng.Length , pTxtRng.Length )
Set pTmpRng = pTxtRng . Replace ( _
FindWhat : = strWhatReplace , _
Replacewhat : = strReplaceText , _
WholeWords : = True)
Schleife
< p > Weiter PSHP
Weiter pSld
End Sub
4
Schließen Sie das " Visual Basic for Applications "-Fenster.
5
Run das Makro über die Schaltfläche " Makro "-Taste aus der "Entwickler "-Menü. Klicken Sie auf die Schaltfläche "Ausführen" . Das Wort "Titel" wird ersetzt durch " New Titel der Präsentation . "
6
Bearbeiten Sie das Makro , indem Sie auf das "Macro "-Taste aus der "Entwickler "-Menü. Klicken Sie auf die Schaltfläche "Bearbeiten" und ändern Sie die Text-String , eine andere Änderung vornehmen .
7
Fügen Sie das Makro auf die " Quick Access Toolbar " über die Schaltfläche " Customize Quick Access Toolbar "-Option und Auswahl der " Weitere Befehle ... " Option . Wählen Sie " Makros" aus den " Befehle auswählen ... " Menü und wählen Sie das Makro . Klicken Sie auf die Schaltfläche "Hinzufügen" . Dann klicken Sie auf die Schaltfläche "OK" . Drücken Sie die "CTRL /S "-Tasten , um die Datei zu speichern.
