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.
|