Creating a Powerpoint Based on Excel Data

[mrtim2232]

Hi All,

I'm after a macro that will loop through all the rows in column A on an excel spreadsheet and create a powerpoint slide for each one and put the value from the cell on the slide and insert an image according to a specified filepath in column B. E.g. Create a slide tittle "Apple" from column a and then the image "C:\Pictures\Apple[image].png"

Any help would be appreciated.

 

[Rijnsent]

Hi Mrtim,
you could e.g. try this manual for starters: https://www.educba.com/vba-powerpoint/
And more on the loop you want to make in Excel: https://homeandlearn.org or https://www.excel-pratique.com/en/vba.php (check out the lesson on Loops).
If you have some code and want some more feedback, please do post it here.
Cheers,
Koen

 

[mrtim2232]

Thankyou for your help I got this far:
Sub CreateSlides()
'Define the folder that contains all of the images. Make sure to include a trailing slash (\)
Dim ImageFolder As String
ImageFolder = "C:\Users\Pictures"

'Open the Excel workbook. Change the filename here.
'on 1st run goto tools> references> Microsoft excel 15.0 object library and make sure its ticked
Dim OWB As New Excel.Workbook
'Define the filepath and file type .xlsm / .xlsx
Set OWB = Excel.Application.Workbooks.Open("C:\Users\Downloads\REPORT.xlsx")

'Grab the first Worksheet in the Workbook change the number in brackets to the right number of sheet
Dim WS As Excel.Worksheet
Set WS = OWB.Worksheets(2)

'Loop through each used row in Column A
'change the i= value to tell it to start on a different row
For i = 2 To WS.Range("A65536").End(xlUp).Row
'Copy the first slide and paste at the end of the presentation
ActivePresentation.Slides(2).Copy
ActivePresentation.Slides.Paste (ActivePresentation.Slides.Count + 1)

'Change the text of the first text box on the slide.
ActivePresentation.Slides(ActivePresentation.Slides.Count).Shapes(1).TextFrame.TextRange.Text = WS.Cells(i, 1).Value

'Set the image location of the shape

ActivePresentation.Slides(ActivePresentation.Slides.Count).Shapes(2).Fill.UserPicture (ImageFolder + WS.Cells(i, 2).Value)
Next
End Sub

However it keeps faulting out on the fill.userpicture line with the following message:
Method 'userpicture' of object 'fillformat' failed

If you have any suggestions it would be appreciated.