afbeelding in PPT via macro in excel

[vraagje1234567]

Hey,

ik ben momenteel bezig om via excel automatisch een powerpoint te maken door op 1 knop te klikken.
ik zit enkel nog vast met het toevoegen van een afbeelding waarvan ik ofwel de afbeelding in excel zet ofwel de bestandsnaam (afbeelding staat dan in een bepaalde map). maar ik zou niet weten hoe je dat in een powerpoint kan zetten.
momenteel heb ik deze code maar dat is nog zonder afbeelding

Sub writedata()
Dim C As Object
Dim ShapeSlide
Dim ShapeName
Dim ShapeText

Dim objPPT As Object
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
objPPT.Presentations.Open "C:\Jan\HoGent\3e Jaar Houttehnologie\Stage\06 Horemans TV\SJABLOON INVULLEN MET EXCEL.pptx"

Set PPT = GetObject(, "Powerpoint.application")
Set PPTPres = PPT.ActivePresentation

For Each C In Blad1.Range("a2:a" & Blad1.Range("a" & Rows.Count).End(xlUp).Row)

ShapeSlide = Blad1.Range("A" & C.Row)
ShapeName = Blad1.Range("B" & C.Row)
ShapeText = Blad1.Range("C" & C.Row)
Tekst = Blad1.Range("D" & C.Row)



PPTPres.Slides(ShapeSlide).Shapes(ShapeName).TextEffect.Text = ShapeText
Next C


datum = Format(Date, "yyyy-mm-dd")
PPTPres.SaveAs ("C:\Jan\HoGent\3e Jaar Houttehnologie\Stage\06 Horemans TV" & datum & "_HoremansTV.pptx")

End Sub​

Wat ik nu krijg:

wat ik wil:

 

[vraagje1234567]

De lay-out van de Tekst staat al ingesteld in de PPT die ik gebruik, ik pas enkel de tekst aan.

dus mijn vraag is hoe dat je een afbeelding kan toevoegen met behulp van VBA in Excel