none
Definir quais slides da minha apresentação RRS feed

  • Pergunta

  • Pessoal, preciso de uma ajuda.

    É o seguinte, no powerPoint 2010, existe uma configuração que numa qtde qualquer de slides, nos dar opção de definirmos qual o slide inicial e final da minha apresentação, vejam a figura abaixo.

    Opção para definir de slides inicial e final

    Pergunto:

    Daria para alguém me passar um código vba para que eu pudesse definir através de um botão de ação qual o slide inicial e final de minha apresentação?

    Antecipo agradecimentos.

    Airton Barros


    JOAB

    domingo, 5 de janeiro de 2014 23:55

Respostas

  • Sub fnc()
      ActivePresentation.SlideShowSettings.StartingSlide = 2
      ActivePresentation.SlideShowSettings.EndingSlide = 4
    End Sub


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

    • Marcado como Resposta JOAB_ARAUJO segunda-feira, 6 de janeiro de 2014 23:16
    segunda-feira, 6 de janeiro de 2014 21:54
    Moderador
  • Utilize:

    ActivePresentation.SlideShowWindow.View.GotoSlide Int(Rnd * ActivePresentation.Slides.Count) + 1


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

    • Marcado como Resposta JOAB_ARAUJO quarta-feira, 8 de janeiro de 2014 22:13
    terça-feira, 7 de janeiro de 2014 20:29
    Moderador

Todas as Respostas

  • Sub fnc()
      ActivePresentation.SlideShowSettings.StartingSlide = 2
      ActivePresentation.SlideShowSettings.EndingSlide = 4
    End Sub


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

    • Marcado como Resposta JOAB_ARAUJO segunda-feira, 6 de janeiro de 2014 23:16
    segunda-feira, 6 de janeiro de 2014 21:54
    Moderador
  • Olá Felipe.

    Mais uma vez, agradecido.

    Marcarei como resposta.

    somente aproveitando, para não ter que abrir outro tópico, me responda porque o código abaixo funciona em design mas não funciona ao executar a minha apresentação?

    Minha aplicação tem 5 slides.

    powerpoint 2010

    windows 7

    Sub sort_rand() Dim i As Integer Dim myvalue As Integer Dim islides As Integer islides = ActivePresentation.Slides.Count For i = 1 To ActivePresentation.Slides.Count myvalue = Int((i * Rnd) + 1) ActiveWindow.ViewType = ppViewSlideSorter ActivePresentation.Slides(myvalue).Select ActiveWindow.Selection.Cut ActivePresentation.Slides(islides - 1).Select ActiveWindow.View.Paste Next End Sub

    fonte:http://www.pptfaq.com/FAQ00429_Randomize_the_order_of_a_PowerPoint_presentation.htm

    Agradecido.

    Airton Barros


    JOAB


    • Editado JOAB_ARAUJO segunda-feira, 6 de janeiro de 2014 23:16
    segunda-feira, 6 de janeiro de 2014 23:15
  • Utilize:

    ActivePresentation.SlideShowWindow.View.GotoSlide Int(Rnd * ActivePresentation.Slides.Count) + 1


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

    • Marcado como Resposta JOAB_ARAUJO quarta-feira, 8 de janeiro de 2014 22:13
    terça-feira, 7 de janeiro de 2014 20:29
    Moderador
  • Olá BenzaDeus

    Agradecido pelas respostas.

    Aírton Barros


    JOAB

    quarta-feira, 8 de janeiro de 2014 22:13