MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Abrir powerpoint através do vba

    avatar
    Edson1974
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 163
    Registrado : 10/05/2011

    [Resolvido]Abrir powerpoint através do vba Empty Abrir powerpoint através do vba

    Mensagem  Edson1974 15/8/2011, 18:15

    Boa tarde.

    Busquei no fórum mas não encontrei algum tópico que fale de como abrir um arquivo .ppt ou .pps através do access. Aguém poderia me dar essa força?



    Obrigado.
    avatar
    Convidado
    Convidado


    [Resolvido]Abrir powerpoint através do vba Empty Re: [Resolvido]Abrir powerpoint através do vba

    Mensagem  Convidado 15/8/2011, 18:26

    Using Automation to Display a PowerPoint Presentation in a Form
    This sample shows you how to display slides from PowerPoint on a form in Access. This technique uses Automation in Access to open a PowerPoint presentation and to link to the first slide. Viewing other slides is accomplished by changing the SourceItem property, which enables you to link to different slides.

    Note To use this technique, you must have both PowerPoint and Access installed on your computer. You also need to create a PowerPoint presentation (.ppt). Throughout the procedure, replace the following file name with the name and path of your file: C:\Program Files\Microsoft Office\Office\Pptexample.ppt The sample provided as a download contains a sample presentation.
    The following example creates a form with an unbound object frame control and five command buttons for linking to a PowerPoint presentation and for moving through its slides.

    To display Microsoft PowerPoint slides on a form, follow these steps:

    1.In a new Access database, create a form in Design view.
    2.Add the following five controls to the form:
    Command button

    ◦Name: insertShow
    ◦Caption: Get Presentation
    ◦Enabled: Yes
    Command button

    ◦Name: frstSlide
    ◦Caption: First Slide
    ◦Enabled: No
    Command button

    ◦Name: nextSlide
    ◦Caption: Next Slide
    ◦Enabled: No
    Command button

    ◦Name: previousSlide
    ◦Caption: Previous Slide
    ◦Enabled: No
    Command button

    ◦Name: lastSlide
    ◦Caption: Last Slide
    ◦Enabled: No
    3.Add an unbound object frame control to the form. In the Insert Object box, click Create New button, select Bitmap Image as the Object Type, and then click OK. Note that the object frame appears as a blank space on the form.
    4.Display the property sheet for the unbound object frame, and then set its properties as follows:
    Unbound Object Frame

    ◦Name: pptFrame
    ◦SizeMode: Zoom
    ◦Enabled: Yes
    ◦Locked: No
    5.On the View menu, click Code to open the form module.
    6.Add the following code to the General Declarations section:
    Option Explicit

    ' Initialize variables.
    Private mcolSlideIDs As Collection
    Private mlngSlideIndex As Long
    7.In the Object list, click insertShow. In the Procedure list, click Click, and then add the following code:
    Private Sub insertShow_Click()
    On Error GoTo insertShow_Click_Error

    ' Open PowerPoint
    Dim strPowerPointFile As String
    Dim pptobj As PowerPoint.Application
    Set pptobj = New PowerPoint.Application
    pptobj.Visible = True
    pptobj.WindowState = ppWindowMinimized

    strPowerPointFile = CurrentProject.Path & "\Access2PowerPoint.ppt"

    ' Fill a collection with all Slide IDs.
    With pptobj.Presentations.Open(strPowerPointFile)
    Set mcolSlideIDs = New Collection
    Dim ppSlide As PowerPoint.Slide
    For Each ppSlide In .Slides
    mcolSlideIDs.Add ppSlide.SlideID
    Next
    .Close
    End With

    ' Close PowerPoint
    pptobj.Quit
    Set pptobj = Nothing

    ' Make object frame visible and enable "navigation" buttons.
    pptFrame.Visible = True
    frstSlide.Enabled = True
    lastSlide.Enabled = True
    nextSlide.Enabled = True
    previousSlide.Enabled = True

    ' Specify OLE Class, Type, SourceDoc, SourceItem and other properties.
    With pptFrame
    .Class = "Microsoft Powerpoint Slide"
    .OLETypeAllowed = acOLELinked
    .SourceDoc = strPowerPointFile
    End With
    SetSlide 1

    frstSlide.SetFocus
    insertShow.Enabled = False

    Exit Sub

    insertShow_Click_Error:
    MsgBox Err.Number & " " & Err.Description
    Exit Sub
    End Sub
    8.In the Object list, click frstSlide. In the Procedure list, click Click, and then add the following code:
    Private Sub frstSlide_Click()
    SetSlide 1
    End Sub
    9.In the Object list, click lastSlide. In the Procedure list, click Click, and then add the following code:
    Private Sub lastSlide_Click()
    SetSlide mcolSlideIDs.Count
    End Sub
    10.In the Object list, click nextSlide. In the Procedure list, click Click, and then add the following code:
    Private Sub nextSlide_Click()
    SetSlide mlngSlideIndex + 1
    End Sub
    11.In the Object list, click previousSlide. In the Procedure list, click Click, and then add the following code:
    Private Sub previousSlide_Click()
    SetSlide mlngSlideIndex - 1
    End Sub
    12.Add the following procedure:
    Private Sub SetSlide(ByVal ID As Integer)
    On Error GoTo ErrorHandler

    Select Case ID
    Case Is > mcolSlideIDs.Count
    MsgBox "This is the last slide."
    Case 0
    MsgBox "This is the first slide."
    Case Else
    mlngSlideIndex = ID
    With pptFrame
    .SourceItem = mcolSlideIDs(mlngSlideIndex)
    .Action = acOLECreateLink
    End With
    End Select

    Exit Sub
    ErrorHandler:
    MsgBox Err.Number & " " & Err.Description
    Exit Sub
    End Sub
    13.Close and save the form module.
    14.Switch the form to Form view, and then click Get Presentation. Next, click the other buttons to move through the presentation.
    avatar
    Convidado
    Convidado


    [Resolvido]Abrir powerpoint através do vba Empty Re: [Resolvido]Abrir powerpoint através do vba

    Mensagem  Convidado 15/8/2011, 19:21

    http://maximoaccess.forumeiros.com/t3860-exibindo-uma-apresentcao-em-power-point-access#32911

    Saudações
    avatar
    Edson1974
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 163
    Registrado : 10/05/2011

    [Resolvido]Abrir powerpoint através do vba Empty Re: [Resolvido]Abrir powerpoint através do vba

    Mensagem  Edson1974 15/8/2011, 19:54

    Olá Harysohn,



    Obrigado pela dica, através da sua resposta consegui realizar o que queria. O código que utilizei foi o seguinte:



    Private Sub btnSobre_Click()
    Dim pptobj As PowerPoint.Application

    Set pptobj = New PowerPoint.Application

    pptobj.Visible = True
    pptobj.WindowState = ppWindowMinimized

    pptobj.Presentations.Open "C:\CaminhodoArquivo\xxx.ppt"

    End Sub



    Lembrando que eu quero é apenas abrir uma apresentação já existente.

    Valeu.

    Abraço.
    avatar
    Convidado
    Convidado


    [Resolvido]Abrir powerpoint através do vba Empty Re: [Resolvido]Abrir powerpoint através do vba

    Mensagem  Convidado 15/8/2011, 19:57

    O exemplo que postei ja a abre em access...

    De qualquer forma se resolveu, resolvido está..

    Apenas se esqueceu de clicar em resolvido


    Saudações
    avatar
    Edson1974
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 163
    Registrado : 10/05/2011

    [Resolvido]Abrir powerpoint através do vba Empty Re: [Resolvido]Abrir powerpoint através do vba

    Mensagem  Edson1974 15/8/2011, 20:19

    Brigadão.



    Resolvido.
    avatar
    DLM2011
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 18/12/2011

    [Resolvido]Abrir powerpoint através do vba Empty Abrir powerpoint através do vbaCompartilheMais!

    Mensagem  DLM2011 18/12/2011, 23:30

    Caro Edson olá

    Eu estou fazendo um banco de dados e como o senhor queria abrir um arquivo power point direto , copiei o código mas ao compilar apareceu um erro "O tipo definido pelo usuário não foi definido".
    Eu sou novo com access usei no colégio em 1995 , e conheço mais a parte de programação em Delphi , e estou montando um banco de dados flexível para meu trabalho.

    gostaria de saber onde estou errando, pode me ajudar.

    A função é esta

    Private Sub Ativar_Desativar21_Click()
    Dim pptobj As PowerPoint.Application
    Set pptobj = New PowerPoint.Application

    pptobj.Visible = True
    pptobj.WindowState = ppWindowMinimized

    pptobj.Presentations.Open "C:\Documents and Settings\diomedes\Meus documentos\M\Muratec apresentacao\Nova Apresentação\Presentation_2011.ppt"

    End Sub
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Abrir powerpoint através do vba Empty Re: [Resolvido]Abrir powerpoint através do vba

    Mensagem  criquio 18/12/2011, 23:32

    Olá Diómedes, seja bem vindo ao forum. Você precisa marcar a referência do PowerPoint na lista de referências. Entre em um módulo qualquer e vá no menu Ferramentas > Referências e procure Microsoft PowerPoint da sua versão.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    DLM2011
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 18/12/2011

    [Resolvido]Abrir powerpoint através do vba Empty Re: [Resolvido]Abrir powerpoint através do vba

    Mensagem  DLM2011 19/12/2011, 22:16

    ok , grato pela ajuda

    Conteúdo patrocinado


    [Resolvido]Abrir powerpoint através do vba Empty Re: [Resolvido]Abrir powerpoint através do vba

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 09:04