PPT: Exemplo de código VB para inverter a ordem dos diapositivos

Traduções de Artigos Traduções de Artigos
Artigo: 162175 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Este artigo fornece uma macro de exemplo do Visual Basic (procedimento Sub) que inverte a ordem de todos os diapositivos na apresentação activa. Depois de executar a macro, serão encomendados, os diapositivos para a frente. Para restaurar os diapositivos à ordem original, volte a executar a macro.

Mais Informação

A Microsoft fornece exemplos de programação apenas, para fins sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, as garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas que são utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador. NOTA: Antes de executar esta macro, cópia a apresentação do PowerPoint.

Procedimento do Visual Basic de exemplo

   Sub ReverseSlideOrder()

      Dim lNumberOfSlides As Long
      Dim x As Long

      ' Determine how many slides are in the presentation.
      lNumberOfSlides = ActivePresentation.Slides.Count

      ' Check if more than one slide.
      If lNumberOfSlides = 1 Then

         ' Not enough slides to flip.
         ' Display a message and exit the macro.
         MsgBox "There is only one slide in " _
           & "your presentation.", vbExclamation, _
           "One Slide Available"
         End
       Else

         ' More than two slides selected.
         For x = 1 To lNumberOfSlides - 1

            ' Reorder the slides.
            ActivePresentation.Slides(lNumberOfSlides).Cut
            ActivePresentation.Slides.Paste x
         Next x
      End If

   End Sub
				

Referências

Para mais informações sobre a criação do Visual Basic para as macros, faça clique sobre o Assistente do Office no Microsoft PowerPoint, tipo de como criar uma macro clique em Procurar e, em seguida, clique em para visualizar "Criar uma macro no Visual Basic".

Para obter mais informações sobre a execução do Visual Basic para as macros, faça clique sobre o Assistente do Office no Microsoft PowerPoint, escreva a executar uma macro , clique em Procurar e, em seguida, clique para visualizar "Executar uma macro."

NOTA: Se o assistente estiver oculto, clique no botão Assistente do Office na barra de ferramentas padrão. Se o assistente não conseguir responder à consulta, consulte o seguinte artigo na base de dados de conhecimento da Microsoft:
176476OFF: Assistente do Office não atendimento frequentes do Visual Basic
Para mais informações sobre como obter ajuda com o Visual Basic for Applications, consulte o seguinte artigo na base de dados de conhecimento da Microsoft:
163435VBA: Recursos de programação do Visual Basic for Applications

Propriedades

Artigo: 162175 - Última revisão: 11 de outubro de 2006 - Revisão: 3.2
A informação contida neste artigo aplica-se a:
  • Microsoft PowerPoint 98 para Macintosh
  • Microsoft PowerPoint 97 Standard Edition
Palavras-chave: 
kbmt kbcode kbdtacode kbhowto kbmacro kbprogramming KB162175 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 162175
Exclusão de Responsabilidade para Conteúdo sem Suporte na KB
Este artigo foi escrito sobre produtos para os quais a Microsoft já não fornece suporte. Por conseguinte, este artigo é oferecido "tal como está" e deixará de ser actualizado.

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com