[Resolvido]Reproduzir apresentaçao Power Point em Formulário

Amigos,
Como posso reproduzir uma apresentação de power point num formulário, alguém sabe?
Obrigado

veja se ajuda

http://msdn.microsoft.com/en-us/library/aa159920(v=office.11).aspx

Obrigado vou tentar seguir algumas pistas no link que me enviou.

Abraço e obrigado

Estamos aí sempre que precisar. Vou encerrar o tópico, se precisar reabra, de qualquer forma o link que lhe passei é da Microsoft e da ajuda do MSDN, logo não deve haver melhor.

Ok Abraço Mestre

Bom trabalho para você

Amigos peço desculpa por reabrir este topico, mas apesar de conseguir adicionar uma apresentaçao de power point num formulario de access não consigo que a animaçao da apresentaçao funcione...
Alguem tem alguma ideia, ja fiz imensos testes e pesquisei na net a apresentaçao foi criada dentro do proprio formulario, foi criada com animaçao mas nao funciona ...

Grato pela vossa ajuda

Ok amigos ja vi que é um topico complicado vou colocar como resolvido e vou continuar na minha pesquisa...
Se eu encontrar soluçao eu coloco aqui o que encontrei.

Abraço

Bom dia

Aconselho realmente a pesquisar pela net, pois é provável que possa recolher alguma informação útil.

Boa pesquisa

Amigos desculpem reabrir este topico mas arranjei uma alternativa à apresentaçao de power point no formulario de access. Decidi colocar 4 imagens no formulario invisiveis e agora so precisava da vossa ajuda para fazer o seguinte:
Construir o seguinte codigo

Private Sub Form_Timer()
contatempo 30 segundos
Me.Imagem166.Visible = True
contatempo 60 segundos
Me.Imagem167.Visible = True
contatempo 90 segundos
Me.Imagem166.Visible = True
contatempo 120 segundos
Me.Imagem166.Visible = True

Podem ajudar-me a transformar estas linhas em codigo vb que faça funcionar a minha ideia?

Abraços e obrigado

Amigo

Em VB é fácil de fazer porque temos a ferramenta Timer disponível e eu posso colocar no form os que necessitar. Agora no Access, só existe um evento de formulário chamado Timer.

Teste assim:
Coloque todas as imagens em Visible= False, menos a primeira
Private Sub Form_Timer()
Me.TimerInterval=3000
Me.Imagem166.Visible = True
Me.TimerInterval=6000
Me.Imagem166.Visible = False
Me.Imagem167.Visible = True
Me.TimerInterval=9000
Me.Imagem166.Visible = False
Me.Imagem167.Visible = False
Me.Imagem166.Visible = True
Me.TimerInterval=12000
Me.Imagem166.Visible = False
Me.Imagem167.Visible = False
Me.Imagem166.Visible = False
Me.Imagem166.Visible = True
Me.TimerInterval=0
Não experimentei, por favor diga se deu erro.

Mestre vou testar...
Obrigado

Bom dia Mestre nao funcionou .
Obrigado na mesma

Lamento, foi uma boa tentativa. Como disse no VB é simples no aceess, se possível, ultrapassa os meus conhecimentos.

Mestre ainda nao desisti vou estudar alguns codigos para ver se consigo alguma coisa.
Abraço

Hugo, qual é exatamente a ideia? Você tem duas imagens e quer que uma fique visível e a outra não e quando passar alguns segundos, inverter os atributos em um loop constante?

Se fossem duas imagens era manteiga no pão, né Criquio. Ele tem 4 imagens. Está acima no tópico e o que pretende é um tipo slide show. Se puderes ajudar....

Criquio é isso mesmo que o mestre esta dizendo. Para perceberem o objectivo deste formulario que estou a desenvolver é para mostrar indicadores de produçao e tem uma area reservada onde pensei colocar uma apresentaçao em power point. No entanto depois de muito pesquisar a unica forma que eu encontrei de colocar aqui uma apresentaçao em power point foi atraves de um link que o mestre vieira me forneceu onde apenas é possivel colocar 1 apresentaçao mas com controles ou seja para mudar o slide tem que criar um botao e necessita de intervençao do utilizador. Bom, fiz mais umas pesquisas e nada entao lembrei-me como expliquei mais em cima de tentar fazer colocando as 4 imagens nao visiveis e atraves de codigo em vb no temporizador do form fazer rodar essas imagens a 1ª aperecia nos primeiros 30s depois a 2ª aparecia 60 seg depois a 3ª 90 seg a 4ª 120 seg e assim em Loop.
Tambem lembrei-me e testei agora e funciona com o seguinte codigo :
If Time = #8:11:00 AM# Then
Me.Imagem164.Visible = false
Me.Imagem166.Visible = True
Me.requery

End If

If Time = #8:12:00 AM# Then
Me.Imagem166.Visible = false
Me.requery
Me.Imagem165.Visible = True
Me.requery
End If
So que vou ter que escrever este codigo para 24 horas por dia o que nao é muito funcional e provavelmente vai tornar a minha BD muito pesada.

Alguma sugestao amigo Criquio?

utilize imagens não acopladas, que busque o arquivo no PC.

como assim topbr? nao percebi. No form tenho uma caixa (oleobject) onde adiccionei uma imagem .jpg (que corresponde ao slide nº1) não visivel. Depois copiei e colei a caixa (oleoject1) adicionei image2 e assim sucessivamente para 4 imagens. Sempre com o argumento visivel = falso

Poderia ser assim:

If ContaTempo < 120 Then
    ContaTempo = ContaTempo + 1
        If ContaTempo <= 1 Then
            Me.Img1.Visible = True
            Me.Img2.Visible = False
            Me.Img3.Visible = False
            Me.Img4.Visible = False
        ElseIf ContaTempo = 30 Then
            Me.Img1.Visible = False
            Me.Img2.Visible = True
            Me.Img3.Visible = False
            Me.Img4.Visible = False
        ElseIf ContaTempo = 60 Then
            Me.Img1.Visible = False
            Me.Img2.Visible = False
            Me.Img3.Visible = True
            Me.Img4.Visible = False
        ElseIf ContaTempo = 90 Then
            Me.Img1.Visible = False
            Me.Img2.Visible = False
            Me.Img3.Visible = False
            Me.Img4.Visible = True
        End If
ElseIf ContaTempo = 120 Then
    ContaTempo = 0
End If

Criquio Perfeito! Ok não é Power Point animado mas da para passar as imagens alternadamente de 30 em 30 seg.
Abraço a todos pela vossa ajuda fica aqui uma alternativa ao power point num formulario de access

Abraços para todos e bom fim de semana

Grande Criquio;

Veja o código que tenho neste exemplo feito em 2003, rsrsrsrs

Download

Putz JPaulo, qual de nós dois copiou do outro? A passagem das imagens é absolutamente igual.

Risk...risk...risk...

Isso agoraaaaaaaaaaaaaaaaaaaa

O exemplo está feito desde 2003 e já foi colocado na NET inumeras vezes.

Você em 2003 já tinha conhecimentos de VBA para fazer tal acrobacia ?

Certamente ainda não, mas te garanto com absoluta certeza que nunca tinha visto o exemplo e nenhum outro parecido