Sie benötigen etwas VBA, um dies zu erreichen. Drücken Sie Alt+ F11, um den VBA-Editor zu öffnen, wählen Sie Menü Einfügen> Modul und fügen Sie den folgenden Code ein
Sub ResetLeftToRight() Dim oSh As Shape Dim oSl As Slide ' make sure slide sorter reads left to right ActivePresentation.LayoutDirection = ppDirectionLeftToRight ' then fix each of the text boxes For Each oSl In ActivePresentation.Slides For Each oSh In oSl.Shapes On Error Resume Next If oSh.HasTextFrame Then If oSh.TextFrame.HasText Then WIth oSh.TextFrame.TextRange.ParagraphFormat .TextDirection = ppDirectionLeftToRight End With End If End If Next ' shape Next ' slide End Sub
Nach allem drücken, um F5zu laufen.
Das obige Skript setzt die Textrichtung jedes Textfelds zurück. Die Schnittstelle wird auch zurückgesetzt, wenn sie sich gerade in dieser Richtung von rechts nach links befindet