Macros oferecem uma maneira de automatizar tarefas repetitivas . Usando uma macro , você pode rapidamente substituir o texto usado ao longo de uma apresentação do PowerPoint com o novo texto. Em vez de repetir manualmente uma ação , como alterar uma palavra a uma frase , criar uma macro e adicioná-lo à Barra de Ferramentas de Acesso Rápido do PowerPoint. Usando macros ajuda a desenvolver conteúdo consistente com mais facilidade. Coisas que você precisa
PowerPoint 2007
Show Mais instruções
1
Abra a apresentação do PowerPoint . Clique no botão "Microsoft Office" e clique no botão " Opções do PowerPoint ." Em seguida , clique no link "Popular " , e em " Principais opções para trabalhar com o PowerPoint ", selecione " Mostrar guia Desenvolvedor na Faixa de Opções. " Clique no botão " OK" .
2
Clique no menu "Desenvolvedor" e , em seguida, clique no botão " Macros " . Digite um nome de macro , como " SwitchText ", e especificar onde você quer que o macro armazenado, normalmente esta apresentação . Opcionalmente, adicione uma descrição da função executa o macro . Clique no botão " Criar" e do Visual Basic for Applications janela se abre.
3
Digite este código, por exemplo, para mudar a palavra " título" para a frase " Nova Apresentação Título " durante toda a apresentação .
Feche o Visual Basic for Applications janela .
Sub SwitchText ()
Dim pSld as Slide
Dim pShp Como Forma < br >
Dim pTxtRng Como TextRange
Dim pTmpRng Como TextRange
Dim strWhatReplace As String , strReplaceText As String
strWhatReplace = " Título "
strReplaceText = " Nova Apresentação Título "
Para Cada pSld Em ActivePresentation.Slides
Para Cada pShp Em pSld.Shapes
Definir pTxtRng = pShp.TextFrame.TextRange
Set pTmpRng = pTxtRng.Replace (_
FindWhat : = strWhatReplace , _
Replacewhat : = strReplaceText , _
WholeWords : = True )
Do While Not pTmpRng é nada
Definir pTxtRng = pTxtRng.Characters _
( pTmpRng.Start + pTmpRng.Length , pTxtRng.Length )
Set pTmpRng = pTxtRng . Substituir (_
FindWhat : = strWhatReplace , _
Replacewhat : = strReplaceText , _
WholeWords : = True )
loop
Próxima pShp
Próxima pSld
End Sub
4
Feche o "Visual Basic for Applications " janela.
5
Run a macro clicando no botão "Macro " no menu "Desenvolvedor" . Clique no botão "Run" . A palavra "título" é substituído por " Nova Apresentação título."
6
Edite a macro clicando no botão "Macro " no menu "Desenvolvedor" . Clique no botão "Editar" e fazer alterações para a seqüência de texto para fazer uma mudança diferente.
7
Adicione a macro para a "Barra de Ferramentas de Acesso Rápido ", clicando a opção " Personalizar Barra de Ferramentas de Acesso Rápido " e selecionando a opção " Mais Comandos ... " opção. Selecione "Macros " do " Escolher comandos de ..." menu e selecione sua macro. Clique no botão "Adicionar" . Em seguida , clique no botão "OK" . Pressione as teclas " CTRL /S" para salvar o arquivo .
