Usuário com melhor resposta
Problemas Macro X PowerPoint

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
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
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
-
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
-
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
-
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
-
"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
-