VBA to size and position a PowerPoint Text box

[Jeff Lance]

I am looking for Access VBA code to size and position a PowerPoint Text box

I am work to create a powerpoint slide with information that I have in an access table.



I have code that opens my powerpoint templet and inserts my information from the table into the powerpoint.

The only way I have found to identify my boxes in a powerpoint is item 1, item 2, so on so on......

I have code to manage the text, size, color, justification ....


I am also trying to understand the the do until end of table command.

Once I get the powerpoint to build the way I want I intend to create a slide for every entry in the table.

unfortunately my access in on a platform that I can not export.

Thanks for any help and advise you can provide!!

Windows 10, Office 365

Jeff.

[isladogs]

I've little experience of automating PowerPoint from Access but I have another solution that may work for you.
Using a web browser control, it's possible to view PowerPoint files within Access.
Depending on the type of PPT file used, you will also be able to edit it within Access if you wish:

This screenshot shows a slide with the right click context menu allowing me to edit the slides if I wish:


and this shows the same file in design view within Access:


Apologies for the huge images. They were full screen.

NOTE:
1. If the PPT file opens outside Access, run the registry fix using the .reg file supplied with the zip file
2. If you get an open/save dialog message each time , let me know and I'll provide a solution for that as well

Hope it helps

[Minty]

I've done a lot of PPT automation, and it isn't always straight forward.
In powerpoint you can change the name of the objects by editing them in the object explorer (Press Alt+F10), to something more meaningful.

The easiest way to make a table to a specific number of rows (Assuming you have a template file with the single headings row in an existing table) is to open a recordset on your data then step through it and use something like
(i've not set up the recordset here, you'll need to add that in - Air code untested but this is the general idea.)

rs.Movelast
rs.Movefirst
iTblRows = rs.RecordCount

With PowerpointObj.Slides(1)
     
     With .Shapes("YourTableShapeName")
         For iRow = 1 To iTblRows
             .Table.Rows.Add
             .Table.Cell(iRow,1).Shape.TextFrame.TextRange.Text = rs.Fields("YourFirstFieldname")
             .Table.Cell(iRow,2).Shape.TextFrame.TextRange.Text = rs.Fields("YourSecondField")
             etc etc
             rs.movenext
         Next iRow   
    End With 
End With

You may need to adjust the row count to allow for heading rows etc.

[Jeff Lance]

The F10 was a great tip, when using the VBA code in Access I found that you still have to use the Item 1, Item 2...... But renaming the Items in the PP helped me to mark targets to load My information from Access.
I am trying and Idea that someone else gave me to use Shapes instead of text boxes. I will let you know how that works out.

Thanks for the tips and info.

[Jeff Lance]

Thank you for the idea on how to resolve the issue.

I am creating the PPTs to insert into another product. so it is the creation of the PPT that is the key

Jeff