Clever-Excel-Forum

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

Push!

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

raw90

WillWissen

snb