Como randomizar slides em uma apresentação do PowerPoint


Às vezes, você pode querer adicionar um elemento surpresa à sua apresentação do PowerPoint, embaralhando os slides aleatoriamente. Por exemplo, talvez você crie uma apresentação para seus alunos e queira embaralhar alguns ou todos os cartões.

Por padrão, o PowerPoint não possui um recurso integrado para isso, mas você pode fazer isso usando uma macro. Neste guia passo a passo, mostraremos como embaralhar slides manualmente e como usar um código VBA para automatizar o processo de embaralhamento aleatório.

Como embaralhar slides manualmente no PowerPoint

No Microsoft PowerPoint, você pode embaralhar manualmente os slides da sua apresentação para exibi-los em ordem aleatória usando a visualização “Classificador de slides”. Embora esse método possa não ser tão aleatório quanto usar macros, ele ainda permite reorganizar os slides em uma ordem diferente.

Para embaralhar e embaralhar manualmente os slides em uma apresentação do PowerPoint, siga as etapas abaixo.

  1. Abra sua apresentação do PowerPoint e vá para a guia Exibirno menu da faixa na parte superior da tela. Clique nele para acessar o menu Exibir.
    1. No menu Exibir, procure o grupo Visualizações de apresentação e selecione a opção Classificador de slides. Isso mudará sua apresentação para a visualização Classificador de slides, onde você poderá ver todas as miniaturas de slides de uma só vez.
      1. Na visualização Classificador de slides, você poderá ver miniaturas maiores dos slides. Se você tiver muitos slides em sua apresentação, clique na opçãoMenos zoomrepresentada pelo –íconena barra de ferramentas inferior para obter uma melhor visão geral de todos os slides. Continue clicando nele até ver todos os slides da apresentação na tela de uma só vez.
      2. Agora, você pode embaralhar facilmente os slides clicando em um slide e arrastando-o para uma posição aleatória na tela. Repita esta etapa com outros slides para embaralhá-los aleatoriamente. Continue reorganizando os slides até ficar satisfeito com a nova ordem.
      3. Lembre-se de que esse método não garante uma ordem completamente aleatória, pois depende da sua organização manual. Se quiser ver um slide completamente aleatório aparecer depois de apertar o botão para mostrar o próximo slide, você pode usar o método de macros VBA para um embaralhamento aleatório mais preciso e automatizado..

        Como randomizar slides do PowerPoint usando um código VBA

        Para garantir que seus slides do PowerPoint sejam reproduzidos em uma ordem completamente aleatória, você precisará usar um pouco de codificação. A opção Macros no Microsoft Office PowerPoint permite executar códigos VBA para embaralhar automaticamente os slides da sua apresentação.

        Neste tutorial, mostraremos como embaralhar seus slides sem duplicações. Para randomizar os slides no PowerPoint para que o mesmo slide não se repita, siga as etapas abaixo.

        1. Para começar, você precisará acessar a guia Desenvolvedorno menu da faixa do PowerPoint. Para fazer isso, siga o caminho Arquivo>Opçõesou clique com o botão direito em qualquer espaço vazio no menu da faixa de opções e selecione Personalizar a faixa de opções. Isso abrirá uma caixa de diálogo.
          1. Na caixa de diálogo Opções do PowerPoint, role para baixo até encontrar a opção Desenvolvedor. Marque a caixa ao lado de Desenvolvedore clique em OK.
            1. Agora selecione a guia Desenvolvedore escolha Macros. Na janela pop-up, você pode inserir uma nova macro. Escolha um nome para ele (por exemplo, Shuffleslides) e clique em Criarpara continuar.
              1. Isso abrirá a janela do Editor do Visual Basic, onde você poderá inserir o código para tornar aleatórios os slides da sua apresentação do PowerPoint.
                1. Copie o seguinte código VBA e cole-o na janela aberta do Visual Basic.
                2. Sub Shuffleslides()

                  PrimeiroSlide = 2

                  ÚltimoSlide = 5

                  Randomizar

                  ‘gerar um não aleatório entre o primeiro e o último slide’

                  GRN:

                  RSN = Int((ÚltimoSlide – PrimeiroSlide + 1) * Rnd + PrimeiroSlide)

                  Se RSN = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex então vá para GRN

                  ActivePresentation.SlideShowWindow.View.GotoSlide (RSN)

                  Fim Sub

                  1. Depois de colar o código, você notará que a configuração padrão embaralha os slides 2 a 5. No entanto, sua apresentação pode não ter exatamente cinco slides, mas isso não é problema. Você pode personalizar facilmente esta parte do código para atender às suas necessidades.
                  2. No Editor VBA, ajuste os números dos slides após “FirstSlide” e “LastSlide” para especificar o intervalo de slides que você deseja incluir na ordem aleatória. Por padrão, a ordem aleatória começa no slide 2 para evitar a inclusão do slide de título. Se você deseja excluir os slides do título da ordem aleatória, mantenha “FirstSlide = 2” como está..

                    Por exemplo, digamos que você tenha uma apresentação com dez slides e queira pular a ordem aleatória do slide do título. Nesse caso, defina “FirstSlide = 2” e “LastSlide = 10”. Dessa forma, apenas os slides 2 a 10 serão incluídos no processo de embaralhamento e o slide do título não será afetado.

                    1. Agora que você completou e personalizou o código da sua apresentação, é hora de adicionar botões de ação nos slides. Para fazer isso, insira qualquer forma no primeiro slide (ou qualquer slide de sua preferência), selecione a forma e navegue até Inserir>Ação>Executar macro. Em seguida, escolha a macro que você acabou de criar. Isso ativará a ordem aleatória dos slides durante o modo Apresentação de slides, proporcionando uma experiência envolvente para o seu público.
                      1. Salve seu arquivo PowerPoint em formato PPTM (apresentação habilitada para macro) para reter as macros que você criou. Selecione Arquivo>Salvar comoe escolha PPTM na lista suspensa para garantir que as macros que você criou serão preservadas e não perdidas.
                      2. Agora entre no modo de apresentação e clique no botão no primeiro slide para embaralhar seus slides aleatoriamente. Aproveite sua apresentação dinâmica e sem repetição.

                        Como embaralhar apenas slides pares ou ímpares

                        Caso você queira embaralhar apenas slides específicos em sua apresentação, como slides pares ou ímpares, você pode usar o seguinte código VBA para embaralhar apenas slides pares ou ímpares sem atrapalhar o resto.

                        Para fazer isso, siga as etapas acima até chegar à janela do Editor do Visual Basic e insira o código a seguir.

                        Sub Shuffleslides()

                        EvenShuffle = True (substitua por false se apenas slides ímpares forem embaralhados)

                        FirstSlide = 2 (deve ser um número par/ímpar com base nas necessidades)

                        ÚltimoSlide = 8

                        Randomizar

                        Para i = FirstSlide To LastSlide Etapa 2

                        Gerar: ‘gerar um não aleatório entre o primeiro e o último slide’

                        RSN = Int((ÚltimoSlide – PrimeiroSlide + 1) * Rnd) + PrimeiroSlide

                        Se EvenShuffle = True então

                        Se RSN Mod 2 = 1 Então GoTo gerar

                        Outra coisa

                        Se RSN Mod 2 = 0 Então GoTo gerar

                        Terminar se

                        ActivePresentation.Slides(i).MoveTo (RSN)

                        Se i

                        Se i >RSN Então ActivePresentation.Slides(RSN + 1).MoveTo (i)

                        Próximo eu

                        End Sub

                        Como embaralhar seus slides em um loop sem fim

                        O tutorial acima demonstra como embaralhar slides do PowerPoint e reproduzi-los em ordem aleatória, sem repetição. No entanto, após um loop, a mesma ordem embaralhada é mantida, a menos que você embaralhe os slides novamente.

                        Para percorrer automaticamente todos os slides em um loop infinito durante o modo de apresentação de slides com uma nova ordem aleatória para cada loop, você pode usar o código a seguir. Certifique-se de alterar os números após FirstSlide = e LastSlide = para ajustar o número de slides da sua apresentação.

                        Posição pública, intervalo, AllSlides() como número inteiro

                        Sub ShuffleAndBegin()

                        PrimeiroSlide = 2

                        ÚltimoSlide = 6

                        Intervalo = (ÚltimoSlide – PrimeiroSlide)

                        ReDim AllSlides (0 até o intervalo)

                        Para i = 0 até o intervalo

                        TodosSlides(i) = PrimeiroSlide + i

                        Próximo eu

                        Randomizar

                        Para N = 0 até o intervalo

                        J = Int((Intervalo + 1) * Rnd)

                        temp = Todos os slides(N)

                        TodosSlides(N) = TodosSlides(J)

                        Todos os slides(J) = temp

                        Próximo N

                        Posição = 0

                        ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(Posição)

                        Finalizar sub

                        Sub Avanço()

                        Posição = Posição + 1

                        Se Posição >Intervalo Então

                        ShuffleAndBegin

                        Outro

                        ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(Posição)

                        Terminar se

                        End Sub

                        Hora de começar sua apresentação

                        Agora você sabe como embaralhar slides do PowerPoint como um profissional. Experimente estes métodos e crie apresentações envolventes para educadores, profissionais de negócios ou qualquer cenário que exija uma ordem aleatória de slides. Divirta-se com suas apresentações de slides dinâmicas e cativantes.

                        .

                        Postagens relacionadas:


                        9.09.2023