Hallo

Ich versuche mittels Replace an bestimmten Stellen einen Zeilenumbruch zu erzwingen und das Kästchen dabei loszuwerden das stattdessen an der Stelle steht. Hierfür verwende ich folgenden Code:

Sub MakroUmbruch()

Dim i As Integer
Dim sh As PowerPoint.Shape
Dim Autoshape
Dim Chr$(13)
Dim vbCrLf
Dim Umbruch
Dim oPP As PowerPoint.Application
Dim oPPT As PowerPoint.Presentation

Set oPP = CreateObject("PowerPoint.Application")
oPP.Visible = True
Set oPPT = oPP.Presentations.Open("Z:\....\Vorlage_Baustein.ppt")

For i = 1 To 142
For Each sh In ActivePresentation.Slides(i).Shapes
    If sh.Name = "Rectangle 30" Then
    Umbruch = Replace("Rectangle 30", Chr$(13), vbCrLf)
    
    'Replace ("Rectangle 30", Chr$(13), "vbCrLf")
End If

Next

Next i

Set oPPT = Nothing

End Sub

Ich habe anstelle von Chr$(13) schon 10 ausprobiert sowie Chr(13).  Leider bisher ohne erfolg und ich weiss offengesagt nicht, wo der Fehler im Code steckt. es wäre super wenn mir jemand hierbei helfen könnte.