Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilenumbruch bei bestimmten Zeichen
 27.09.2011 16:27:05 Olaf80
NotSolved
27.09.2011 18:46:18 Till
NotSolved
28.09.2011 09:00:27 Olaf80
NotSolved
28.09.2011 09:00:28 Olaf80
NotSolved
28.09.2011 07:02:57 Gast49505
NotSolved

Ansicht des Beitrags:
Von:
Olaf80		 Datum:
27.09.2011 16:27:05		 Views:
2027		 Rating:
     
Antwort:
  Ja
Thema:
Zeilenumbruch bei bestimmten Zeichen

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.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilenumbruch bei bestimmten Zeichen
 27.09.2011 16:27:05 Olaf80
NotSolved
27.09.2011 18:46:18 Till
NotSolved
28.09.2011 09:00:27 Olaf80
NotSolved
28.09.2011 09:00:28 Olaf80
NotSolved
28.09.2011 07:02:57 Gast49505
NotSolved