Macro's bieden een manier van automatiseren van repetitieve taken . Met behulp van een macro , kunt u snel de plaats van de tekst gebruikt in een PowerPoint-presentatie met de nieuwe tekst . In plaats van handmatig te herhalen een actie , zoals een woord veranderen naar een zin , het opzetten van een macro toevoegen aan werkbalk Snelle toegang PowerPoint 's . Met behulp van macro's helpt u consistente inhoud gemakkelijker te ontwikkelen . Wat je nodig hebt PowerPoint 2007 Toon Meer Aanwijzingen 1 Open uw PowerPoint-presentatie . Klik op de " Microsoft Office " knop en klik op de " Opties voor PowerPoint " knop . Klik vervolgens op de "Popular "-link , en onder ' De belangrijkste opties voor het werken met PowerPoint , " " tonen tabblad Ontwikkelaars op het lint . "Te selecteren Klik op de knop "OK " . Kopen van 2 Klik op het menu " Developer " en klik vervolgens op de " macro "-knop . Voer een macro- naam , zoals " SwitchText , " en geef aan waar u wilt dat de macro opgeslagen , meestal deze presentatie . Voeg desgewenst een beschrijving van de functie de macro uitvoert. Klik op de knop "Create " en de Visual Basic for Applications venster geopend . 3 Voer deze code , bijvoorbeeld , het woord " titel " te schakelen naar de zin " Nieuwe presentatie titel " de hele presentatie . Sluit de Visual Basic for Applications -venster . Sub SwitchText ( ) op Dim pSld Zoals Slide Dim pShp Zoals Shape < br Dim pTxtRng Zoals TextRange Dim pTmpRng > Zoals TextRange Dim strWhatReplace als Koord , strReplaceText als Koord strWhatReplace = " Titel " strReplaceText = " Nieuwe presentatie titel " voor Elke pSld In ActivePresentation.Slides voor Elke pShp In pSld.Shapes Set pTxtRng = pShp.TextFrame.TextRange Set pTmpRng = pTxtRng.Replace ( _ findwhat : = strWhatReplace , _ Replacewhat : = strReplaceText , _ WholeWords : = True ) op Twitter Laat Terwijl Niet pTmpRng Is Nothing Set pTxtRng = pTxtRng.Characters _ ( pTmpRng.Start + pTmpRng.Length , pTxtRng.Length ) Set pTmpRng = pTxtRng . Vervang ( _ findwhat : = strWhatReplace , _ Replacewhat : = strReplaceText , _ WholeWords : = True ) Loop Volgende pShp Volgende pSld End Sub 4 Sluit de " Visual Basic for Applications " venster . Run 5 de macro door op de " macro "-knop in het menu "Ontwikkelaar " . Klik op de " Run" knop . Het woord " titel " wordt vervangen door " Nieuwe presentatie titel . " 6 Bewerk de macro door te klikken op de knop " Macro " uit het menu "Ontwikkelaar " . Klik op de knop 'Bewerken' en wijzigingen aanbrengen in de tekst string naar een andere verandering aan te brengen . 7 Voeg de macro aan de "Quick Access Toolbar " door te klikken op de optie ' Werkbalk Snelle toegang aanpassen " en het selecteren van de " Meer opdrachten ... " optie . Selecteer " Macro's " uit de " Kies opdrachten uit ... " menu en selecteer uw macro . Klik op de knop 'Toevoegen' . Klik vervolgens op de knop "OK " . Druk op de " CTRL /S" toetsen om uw bestand op te slaan .
|