Von Excel nach Powerpoint

Sub ZellenInhaltAbholenUndWeitergeben()
Dim rngDatenWerte As Range
Dim appPowerPt As Variant
Dim strWerte As String
Dim myDocument As Variant
Dim I As Integer
Dim A As Integer
Set rngDatenWerte = Worksheets(4).Range("C3")
rngDatenWerte.Select
For I = 1 To rngDatenWerte.Rows.Count
strWerte = strWerte & CStr(rngDatenWerte.Cells(I, 1)) & "; "
Next
strWerte = Left(strWerte, (Len(strWerte) - 2))
Set appPowerPt = CreateObject("PowerPoint.Application")
appPowerPt.Visible = True
appPowerPt.Presentations.Open Filename:="C:\WSD-Modul\Monatsbericht TZE.ppt"
Set myDocument = appPowerPt.Presentations(1).Slides(1)
With myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
320, 290, 300, 100).TextFrame.TextRange
With .Font
.Italic = True
.Name = "Times New Roman"
.Color.RGB = RGB(0, 0, 255)
.Size = 40
End With
.Text = "" & strWerte
End With
End Sub