none
Macro que adiciona animação RRS feed

  • Pergunta

  • Eu queria saber se é possível criar o seguinte:

    uma Macro do PowerPoint que seja capaz de ADICIONAR um efeito de "animação personalizada" num objeto;
    quarta-feira, 6 de junho de 2012 02:37

Respostas

  • Sub AdicionarAnimação()
        Dim oshp As Shape
        Dim osld As Slide
        Dim oeff As Effect
        Set osld = ActivePresentation.Slides(1)
        
        'Cria estrela na posição 10,10 de tamanho 100x100:
        Set oshp = osld.Shapes.AddShape(msoShape10pointStar, 10, 10, 100, 100)
        Set oeff = osld.TimeLine.MainSequence.AddEffect(Shape:=oshp _
          , effectid:=msoAnimEffectWipe _
          , trigger:=msoAnimTriggerOnPageClick)
        
        'Para editar a animação:
        With oeff
            .EffectParameters.Direction = msoAnimDirectionLeft
            .Timing.Duration = 2
        End With
    End Sub

    Fonte: http://www.pptalchemy.co.uk/PowerPoint_vba_animation.html


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

    • Marcado como Resposta xxxagilianxxx terça-feira, 12 de junho de 2012 01:26
    quinta-feira, 7 de junho de 2012 21:49
    Moderador
  • Sub AdicionarAnimação()
        Dim oshp As Shape
        Dim osld As Slide
        Dim oeff As Effect
        Dim ae As MsoAnimEffect
        Set osld = ActivePresentation.Slides(1)
        
        'Cria estrela na posição 10,10 de tamanho 100x100:
        Set oshp = osld.Shapes.AddShape(msoShape10pointStar, 10, 10, 100, 100)
        
        'Experimente apagar toda a linha abaixo até 'ae' e digitar novamente
        'o símbolo '=' para mostrar o intellisense com os efeitos disponíveis:
        ae = msoAnimEffectPathRight
        
        Set oeff = osld.TimeLine.MainSequence.AddEffect(Shape:=oshp _
          , EffectId:=msoAnimEffectPathRight _
          , Trigger:=msoAnimTriggerOnPageClick)
        
        'Para editar a animação:
        With oeff
            'Um número maior torna o movimento mais lento:
            .Timing.Duration = 1
        End With
    End Sub

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

    • Marcado como Resposta xxxagilianxxx terça-feira, 12 de junho de 2012 01:26
    terça-feira, 12 de junho de 2012 01:11
    Moderador

Todas as Respostas

  • Sub AdicionarAnimação()
        Dim oshp As Shape
        Dim osld As Slide
        Dim oeff As Effect
        Set osld = ActivePresentation.Slides(1)
        
        'Cria estrela na posição 10,10 de tamanho 100x100:
        Set oshp = osld.Shapes.AddShape(msoShape10pointStar, 10, 10, 100, 100)
        Set oeff = osld.TimeLine.MainSequence.AddEffect(Shape:=oshp _
          , effectid:=msoAnimEffectWipe _
          , trigger:=msoAnimTriggerOnPageClick)
        
        'Para editar a animação:
        With oeff
            .EffectParameters.Direction = msoAnimDirectionLeft
            .Timing.Duration = 2
        End With
    End Sub

    Fonte: http://www.pptalchemy.co.uk/PowerPoint_vba_animation.html


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

    • Marcado como Resposta xxxagilianxxx terça-feira, 12 de junho de 2012 01:26
    quinta-feira, 7 de junho de 2012 21:49
    Moderador
  • Perfeito!  Mas você sabe como fazer aquela animação de TRANSLAÇÃO (que você especifica: eu quero que esse objeto venha daqui para cá)?????
    segunda-feira, 11 de junho de 2012 23:13
  • Sub AdicionarAnimação()
        Dim oshp As Shape
        Dim osld As Slide
        Dim oeff As Effect
        Dim ae As MsoAnimEffect
        Set osld = ActivePresentation.Slides(1)
        
        'Cria estrela na posição 10,10 de tamanho 100x100:
        Set oshp = osld.Shapes.AddShape(msoShape10pointStar, 10, 10, 100, 100)
        
        'Experimente apagar toda a linha abaixo até 'ae' e digitar novamente
        'o símbolo '=' para mostrar o intellisense com os efeitos disponíveis:
        ae = msoAnimEffectPathRight
        
        Set oeff = osld.TimeLine.MainSequence.AddEffect(Shape:=oshp _
          , EffectId:=msoAnimEffectPathRight _
          , Trigger:=msoAnimTriggerOnPageClick)
        
        'Para editar a animação:
        With oeff
            'Um número maior torna o movimento mais lento:
            .Timing.Duration = 1
        End With
    End Sub

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

    • Marcado como Resposta xxxagilianxxx terça-feira, 12 de junho de 2012 01:26
    terça-feira, 12 de junho de 2012 01:11
    Moderador
  • Perfeito cara! vou marcar como resposta!!!

    terça-feira, 12 de junho de 2012 01:25
  • sábado, 16 de junho de 2012 03:12