Makron ger ett sätt att automatisera repetitiva uppgifter . Med hjälp av ett makro kan du snabbt ersätta den text som används under en PowerPoint- presentation med ny text . Istället för att manuellt upprepa en åtgärd , till exempel ändra ett ord till en fras , inrätta ett makro och lägga till den i PowerPoint Snabbåtkomst . Använda makron hjälper dig att utveckla konsekventa innehållet lättare . Saker du behöver
PowerPoint 2007
Visa fler instruktioner
1
Öppna din PowerPoint-presentation . Klicka på " Microsoft Office " -knappen och klicka på " PowerPoint-alternativ " -knappen . Klicka sedan på " Popular " länken , och under " Top alternativ för att arbeta med PowerPoint , " välj " Visa fliken Utvecklare i menyfliksområdet . " Klicka på " OK " -knappen .
2
Klicka på " Utvecklare " -menyn och klicka sedan på " Makron " -knappen . Ange ett makro namn , såsom " SwitchText , " och ange var du vill att makrot lagras , typiskt denna presentation . Du kan också lägga en beskrivning av funktionen makrot utför . Klicka på " Skapa " knappen och Visual Basic for Applications öppnas . Addera 3
Ange denna kod , till exempel att byta ordet " avdelning " till frasen " Ny presentation Title " hela presentationen .
Stäng Visual Basic for Applications fönstret .
Sub SwitchText ( ) katalog
Dim pSld Som Slide
Dim pShp Som Shape
Dim pTxtRng Som TextRange
Dim pTmpRng Som TextRange
Dim strWhatReplace As String , strReplaceText As String
strWhatReplace = " Titel "
strReplaceText = " Ny presentation Titel "
För varje pSld I ActivePresentation.Slides
För varje pShp I pSld.Shapes
Set pTxtRng = pShp.TextFrame.TextRange
Set pTmpRng = pTxtRng.Replace ( _
FindWhat : = strWhatReplace , _
Replacewhat : = strReplaceText , _
WholeWords : = Sant ) katalog
Gör Medan Inte pTmpRng är ingenting
Set pTxtRng = pTxtRng.Characters _
( pTmpRng.Start + pTmpRng.Length , pTxtRng.Length ) katalog
Set pTmpRng = pTxtRng . Ersätt ( _
FindWhat : = strWhatReplace , _
Replacewhat : = strReplaceText , _
WholeWords : = Sant ) katalog
Loop
Nästa pShp
Nästa pSld
End Sub
4
Stäng " Visual Basic for Applications " fönstret .
5
Run makrot genom att klicka på " Macro " knappen från "Utvecklare " -menyn . Klicka på " Kör " knappen . Ordet " Title " får ersättas med " Ny presentation titel . "
6
Redigera makrot genom att klicka på " Macro " knappen från "Utvecklare " -menyn . Klicka på knappen "Redigera" och göra ändringar i texten strängen för att göra en annan förändring .
7
Lägg makrot till " i verktygsfältet Snabbåtkomst " genom att klicka på " Anpassa verktygsfältet Snabbåtkomst " alternativet och välja " Fler kommandon ... " alternativ. Välj " Makron " från " Välj kommandon från ... " menyn och välj ditt makro . Klicka på knappen "Add" . Klicka sedan på " OK " -knappen . Tryck på "Ctrl /S " för att spara filen .
