AW: Text aus zelle nach PPT schreiben
04.05.2010 11:01:38
ChrisL
Hi Joachim
Sub Create_PowerPoint_Slides()
Dim oPA As PowerPoint.Application
Dim oPP As PowerPoint.Presentation
Dim oPS As PowerPoint.Slide
Dim oShape As PowerPoint.Shape
Set oPA = New PowerPoint.Application
oPA.Visible = msoTrue
Set oPP = oPA.Presentations.Add(msoTrue)
oPP.Slides.Add 1, ppLayoutBlank
Set oPS = oPP.Slides(1)
Set oShape = oPS.Shapes.AddTextbox(msoTextOrientationHorizontal, 200#, 80#, 100#, 50#)
oShape.TextFrame.WordWrap = msoTrue
oShape.TextFrame.TextRange.Text = Worksheets("Tabelle1").Range("A2")
Set oShape = oPS.Shapes.AddTextbox(msoTextOrientationHorizontal, 300#, 80#, 100#, 50#)
oShape.TextFrame.WordWrap = msoTrue
oShape.TextFrame.TextRange.Text = Worksheets("Tabelle1").Range("A3")
Set oShape = oPS.Shapes.AddTextbox(msoTextOrientationHorizontal, 400#, 80#, 100#, 50#)
oShape.TextFrame.WordWrap = msoTrue
oShape.TextFrame.TextRange.Text = Worksheets("Tabelle1").Range("A4")
End Sub
cu
Chris