VBA Text in PowerPoint darstellen

[raw90]

Hallo liebes Forum,

vielen Dank für die Aufnahme, leider komme ich direkt mit einem Problem zu euch.

Ich würde gerne einzelne Felder einer Tabelle mit separaten Textfeldern einer formatierten PowerPointPräsentation verknüpfen, so dass die Texte zentral in Excel gepflegt und automatisch in meiner PowerPoint aktualisiert werden.



Mit folgendem Code wird meine Präsentation erfolgreich geöffnet, und der Inhalt von A1 mit dem Textfeld 2 des ersten Slides verknüpft. Wie kann ich hier eine Schleife erstellen um A1-A8 jeweils mit den Textfeldern 2 bis 9 in meiner PowerPoint zu verknüpfen und anschließend auf den nächsten Slide zu wechseln?

Sub Excel2PPP()
Range("A1").Copy
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = msoTrue
Set pptPres = pptApp.Presentations.Open("C:\Test\Test1.ppt")
Set pptSlide = pptPres.Slides(1)
Set Kopierbereich = New DataObject
Kopierbereich.GetFromClipboard
pptSlide.Shapes(2).TextFrame.TextRange.Text = _
Kopierbereich.GetText
Application.CutCopyMode = False
End Sub

Vielen Dank für eure Hilfe!
Gruß raw90

[WillWissen]

Push!

[snb]

Code:

Sub M_snb()
    sn = Sheets(1).Cells(1).CurrentRegion.Resize(, 2)
    
    With CreateObject("Powerpoint.application")
        With .presentations.Add
            For j = 1 To UBound(sn)
                .slides.Add(1, 12).Shapes.AddTextbox(1, 120, 120, 270, 100).TextFrame.TextRange.Text = sn(j, 1) & vbLf & sn(j, 2)
            Next
        End With
    End With
End Sub