Excel Text in Powerpoint Textfelder einfügen per Makro?

06/08/2008 - 11:23 von thomas müller | Report spam
Hallo,

ich suche nach einer Möglichkeit den Inhalt von Excel text in ein
Textfeld von Powerpoint einzufügen. Alles Versionen 2007...

In Excel steht in Blatt A, a1:a100 Text. Jede Zeile ist gefüllt. Wie
kann ich nun diesen Text kopieren und in PPT z.B. auf Folie 1 in ein
dort bereits angelegtes Textfeld (jede Excel Zeile wird in PPT ein
Aufzàhlungspunkt) einfügen?

Hat da jemand eine Idee?

Danke

thomas
 

Lesen sie die antworten

#1 stefan onken
07/08/2008 - 14:26 | Warnen spam
On 6 Aug., 11:23, thomas müller wrote:
Hallo,

ich suche nach einer Möglichkeit den Inhalt von Excel text in ein
Textfeld von Powerpoint einzufügen. Alles Versionen 2007...

In Excel steht in Blatt A, a1:a100 Text. Jede Zeile ist gefüllt. Wie
kann ich nun diesen Text kopieren und in PPT z.B. auf Folie 1 in ein
dort bereits angelegtes Textfeld (jede Excel Zeile wird in PPT ein
Aufzàhlungspunkt) einfügen?

Hat da jemand eine Idee?

Danke

thomas



hallo Thomas,
teste mal dieses Makro. Du brauchst im VBA-Editor unter Extras/
Verweise einen Verweis auf Microsoft Forms Object Library, ggfls über
Durchsuchen die C:Windows\system32\fm20.dll einbinden oder ein
UserForm einfügen/entfernen.

Sub ExceldatenNachPowerPoint()
Range("A1:A10").Copy
Set pptApp = CreateObject("PowerPoint.Application")
Set pptPres = pptApp.Presentations.Add(msoTrue)
Set pptSlide = pptPres.Slides.Add(1, 2)
Set Kopierbereich = New DataObject
Kopierbereich.GetFromClipboard
pptSlide.Shapes(2).TextFrame.TextRange.Text = _
Kopierbereich.GetText
pptApp.Visible = msoTrue
Application.CutCopyMode = False
End Sub

Hierbei wird eine neue ppt-Datei erstellt, es ist aber auch möglich,
eine bereits existierende zu nehmen.
Folgendes fügt Daten ein in Shape 2 auf Slide 2:

Sub ExceldatenNachPowerPoint2()
Range("A1:A10").Copy
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = msoTrue
Set pptPres = pptApp.Presentations.Open("d:\test\xyz.ppt")
Set pptSlide = pptPres.Slides(2)
Set Kopierbereich = New DataObject
Kopierbereich.GetFromClipboard
pptSlide.Shapes(2).TextFrame.TextRange.Text = _
Kopierbereich.GetText
Application.CutCopyMode = False
End Sub

Gruß
stefan

Ähnliche fragen