Results 1 to 11 of 11
  1. #1
    Join Date
    Aug 2006
    Posts
    5

    Unanswered: turning form output into powerpoint slide

    During execution of an access application, I would like to take the output of a MS access form and put it into a powerpoint file as a slide. The couple of examples I have found online of this include cycling through the recordset. I don't need to do all that. I just want a picture of the form image as it is displayed with the data on it to be put into a powerpoint file as a slide. Any simple way to do this? Thanks

  2. #2
    Join Date
    Mar 2009
    Posts
    5,442
    Provided Answers: 14
    Try a product such as Gadwin Printscreen: Gadwin Systems - Technical Support
    Have a nice day!

  3. #3
    Join Date
    Aug 2006
    Posts
    5
    I work for the government. We don't have such products. Nor will they buy such products. Thanks though.

  4. #4
    Join Date
    Nov 2004
    Location
    out on a limb
    Posts
    13,692
    Provided Answers: 59
    alternativley, as powerpoint is an MS office product I see know reason why you couldnt' create power point page(s) with the data as required using the powerpoint object and some VBA.

    I've never done that but I don't see why you can't. however be warned there can be problems with changes in each release of Office meaning differnet libraries have to be used for different versions


    depending on how often you want to do this it may just be quicker to take a screen dump and copy and paste it into powerpoint or a suitable graphics program
    I'd rather be riding on the Tiger 800 or the Norton

  5. #5
    Join Date
    Mar 2009
    Posts
    5,442
    Provided Answers: 14
    You do not need to buy anything: it's totally free and works nicely.
    Have a nice day!

  6. #6
    Join Date
    Aug 2006
    Posts
    5
    If it has to be downloaded, we can't do that either.

  7. #7
    Join Date
    Mar 2009
    Posts
    5,442
    Provided Answers: 14
    Then I guess that you could use Automation to have Access communicate with PowerPoint, but it's a lot of work.
    Have a nice day!

  8. #8
    Join Date
    Sep 2006
    Posts
    265
    If you are simply wanting to capture an image of the form do a screen scrape [Ctrl]+[Prt Sc] . I then dump this into Photoshop (Elements will do) and save it out as a gif or jpg.

    Simon

  9. #9
    Join Date
    Aug 2006
    Posts
    5
    Yes, I'm trying to do it with VBA code, and I got the code to add the slides to a powerpoint file to work (kinda), but to add the current form output to the slide is not working. I'm sure the example I'm using isn't the correct command. Anyway in general it goes something like 'powerpoint.slide.shapes.addpicture(need something in here that represents the current form being displayed)'. The shape is supposed to represent what is going to be on the slide.

  10. #10
    Join Date
    Jan 2014
    Posts
    29

    Found this for outputting record set to Power Point

    Sub cmdPowerPoint_Click()
    Dim db As Database, rs As Recordset
    Dim ppObj As PowerPoint.Application
    Dim ppPres As PowerPoint.Presentation

    On Error GoTo err_cmdOLEPowerPoint

    ' Open up an instance of Powerpoint and the existing template.
    Set ppObj = CreateObject("PowerPoint.Application")
    ppObj.Visible = True
    Set ppPres = ppObj.Presentations.Open("C:/MyPowerPointTemplate.ppt")

    ' Open up a recordset on the Employees table.
    Set db = CurrentDb
    Set rs = db.OpenRecordset("MyRecordSet", dbOpenDynaset)

    ' Setup the set of slides and populate them with data from the
    ' set of records.
    With ppPres
    While Not rs.EOF
    With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutText)
    .SlideShowTransition.EntryEffect = ppEffectNone
    .Shapes(1).TextFrame.TextRange.Text = "Any Text Here"
    With .Shapes(2).TextFrame.TextRange
    .Text = "MyFirstTitle: " & Chr(9) & CStr(rs.Fields("MyFirstDataElement").Value)
    .Text = .Text & Chr(13) & "MySecondTitle: " & Chr(9) & CStr(rs.Fields("MySecondDataElement").Value)
    .Text = .Text & Chr(13) & "MyThirdTitle: " & Chr(9) & CStr(rs.Fields("MyThirdDataElement").Value)
    .Characters.Font.Color.RGB = RGB(0, 0, 0)
    .Characters.Font.Shadow = False
    .Characters.Font.Size = 12
    .Characters.Font.Bold = True
    .Characters.Font.Italic = False
    .Characters.Font.Underline = False
    .ParagraphFormat.Bullet.Type = ppBulletNone
    End With

    .Shapes(1).TextFrame.TextRange.Characters.Font.Siz e = 18
    .Shapes(1).TextFrame.TextRange.Characters.Font.Sha dow = False
    .Shapes(1).TextFrame.TextRange.Characters.Font.Col or.RGB = RGB(0, 0, 0)
    .Shapes(1).TextFrame.TextRange.Characters.Font.Ita lic = False
    .Shapes(1).TextFrame.TextRange.Characters.Font.Bol d = True
    .Shapes(1).TextFrame.TextRange.Characters.Font.Und erline = False
    End With

    rs.MoveNext

    Wend
    End With

    Exit Sub

    err_cmdOLEPowerPoint:
    MsgBox Err.Number & " " & Err.Description
    End Sub

  11. #11
    Join Date
    Mar 2009
    Posts
    5,442
    Provided Answers: 14
    That's what I meant. It's a lot of work if you don't know the PowerPoint object model.
    Have a nice day!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •