none
Problemas Macro X PowerPoint RRS feed

  • Pergunta

  • Pessoal,

    Estou com um problema esquisito em uma apresentação, já fiz vários testes e não consegui resolver.

    Este é meu código, serve para embaralhar os slides.

    Sub EmbaralharSlides()
      Dim Iupper As Integer
      Dim Ilower As Integer
      Dim Ifrom As Integer
      Dim Ito As Integer
      Dim i As Integer
      
      Ilower = 2
      Iupper = ActivePresentation.Slides.Count - 1
      
      If Iupper > ActivePresentation.Slides.Count Or Ilower < 1 Then GoTo err
         For i = 1 To 2 * Iupper
          Randomize
          Ifrom = Int((Iupper - Ilower + 1) * Rnd + Ilower)
          Ito = Int((Iupper - Ilower + 1) * Rnd + Ilower)
          ActivePresentation.Slides(Ifrom).MoveTo (Ito)
         Next i
      Exit Sub
    err:
      MsgBox "Sua escolha está fora do intervalo"
    End Sub

    Acontece que quando rodo a minha apresentação na extensão .pptm, funciona tranquilo, mas se eu salvar o arquivo como *.ppsm e exibir, esta função não executa, o mais esquisito e se abro o arquivo *.ppsm em modo de projeto ai ela funciona.

    Alguem pode me explicar essa estranheza e me informar também em que extensão correta para distribuir minha aplicação?

    Agradecido.

    Airton Barros


    JOAB

    segunda-feira, 27 de janeiro de 2014 00:53

Respostas

  • "Na realidade estou executando esta macro através de um botão de ação no meu primeiro Slide, este botão me aciona a macro já citada e dou um next para ir para o próximo slide."

    Eu fiz exatamente isso e funcionou comigo.

    Certifique-se que você está salvando na forma PPSM e não PPSX.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta JOAB_ARAUJO quarta-feira, 29 de janeiro de 2014 22:53
    quarta-feira, 29 de janeiro de 2014 20:13
    Moderador

Todas as Respostas

  • Suspeito que você habilita as macros da apresentação manualmente. Se este for o caso, as macros não rodam e então a apresentação não roda macros.

    Altere suas configurações de segurança e tente novamente.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    segunda-feira, 27 de janeiro de 2014 20:23
    Moderador
  • Olá Felipe.

    Agradecido pela resposta.

    Mas, veja só.

    1-Estou escrevendo a macro em um módulo, na aba Desenvolvedor do PowerPoint

    2-Esta imagem mostra como está minhas configurações de segurança.3 - a outra imagem abaixo, mostra como estou executando minhas macros, ou seja, através de configuração de ação, no caso, o click no shape.

    No mais, no aguardo.

    Airton Barros


    JOAB

    segunda-feira, 27 de janeiro de 2014 22:22
  • Essa macro funcionou normalmente comigo, testei no PowerPoint 2013.

    Estou assumindo que a macro de embaralhar slides você queria executar automaticamente ao abrir a apresentação, certo? Se esse for o caso, você deverá configurar sua apresentação para tal: http://www.ambienteoffice.com.br/powerpoint/executar_codigo_ao_abrir_apresentacao/


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 28 de janeiro de 2014 21:25
    Moderador
  • Olá Felipe.

    Mais uma vez, muito agradecido pela atenção.

    Na realidade estou executando esta macro através de um botão de ação no meu primeiro Slide, este botão me aciona a macro já citada e dou um next para ir para o próximo slide.

    Acontece que em tempo de design e se dou um F5, funciona perfeitamente,

    mas se salvo a apresentação como PPS ou PPSX e quando executo o arquivo só como apresentação, esta macro não funciona.

    Fiz um teste, desabilitando-a e executado o código do meu botão sem esta macro e funcionou, mas quando habilito a macro não funciona.

    De qualquer forma vou testa essa sua dica e qualquer coisa retorno com a resposta.

    Agradecido.

    Airton Barros


    JOAB

    quarta-feira, 29 de janeiro de 2014 01:15
  • "Na realidade estou executando esta macro através de um botão de ação no meu primeiro Slide, este botão me aciona a macro já citada e dou um next para ir para o próximo slide."

    Eu fiz exatamente isso e funcionou comigo.

    Certifique-se que você está salvando na forma PPSM e não PPSX.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta JOAB_ARAUJO quarta-feira, 29 de janeiro de 2014 22:53
    quarta-feira, 29 de janeiro de 2014 20:13
    Moderador
  • Felipe,

    Agradecido demais.

    Deu certo


    JOAB

    quarta-feira, 29 de janeiro de 2014 22:54