Hallo,

ich hoffe, Sie können mir bei einer technischen Herausforderung behilflich sein. Es geht darum, ein Bild, welches sich aktuell in einer Excel-Zelle befindet, in eine PowerPoint-Präsentation zu übertragen. Leider habe ich bisher keine erfolgreiche Methode gefunden, um dieses Ziel zu erreichen. Falls jemand eine Lösungsvorschlag für diese Aufgabe hat, würde ich mich sehr freuen.

Hier ist der bisherige Code (funktioniert auch super):

Sub Test()
Dim pptApp As Object 'PowerPoint.Application
Dim pptPres As Object 'PowerPoint.Presentation
Dim strPfad As String, strPOTX As String, pptVorlage As String

strPOTX = "Reference_OnePager.potx"

'Gleicher Pfad wie diese Datei
strPfad = ThisWorkbook.Path
If Right(strPfad, 1) > "\" Then strPfad = strPfad & "\"
pptVorlage = strPfad & strPOTX

Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Presentations.Open Filename:=pptVorlage, untitled:=msoTrue
Set pptPres = pptApp.ActivePresentation

With pptPres
With .Slides(1)
.Shapes("Title").TextFrame.TextRange.Characters.Text = Range("rng_Title").Value
.Shapes("Customer").TextFrame.TextRange.Characters.Text = Range("rng_Customer").Value
.Shapes("Location").TextFrame.TextRange.Characters.Text = Range("rng_Location").Value
.Shapes("Completion").TextFrame.TextRange.Characters.Text = Range("rng_Completion").Value
.Shapes("Challenge").TextFrame.TextRange.Characters.Text = Range("rng_Challenge").Value
.Shapes("Scope").TextFrame.TextRange.Characters.Text = Range("rng_Scope").Value
.Shapes("Solution").TextFrame.TextRange.Characters.Text = Range("rng_Solution").Value
.Shapes("Author | Department").TextFrame.TextRange.Characters.Text = Range("rng_Author").Value
End With
.SaveAs strPfad & Range("rng_Title") & ".pptx"
.Close
End With
pptApp.Quit
End Sub