Problemas Macro X PowerPoint

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

"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

Answer 6

Felipe,

Agradecido demais.

Deu certo

---

JOAB