☰

Standardzeilenabstand in Powerpoint 2007

tag-icon • tag-icon microsoft-office-2007 microsoft-powerpoint vba microsoft-powerpoint-2007
Standardzeilenabstand in Powerpoint 2007

Ich möchte den Standardzeilenabstand in Powerpoint 2007 auf 1,1 statt auf 0,8 einstellen, wie es Microsoft als Standard festgelegt hat. Gibt es eine Möglichkeit, dies zu tun?

Alternativ könnte ich es auch schaffen, wenn ich ein Makro erstellen könnte, das dies tut. Aber MS hat auch den Makro-Recorder aus PP2007 entfernt. Kann jemand mit dem VBA-Code helfen??

Danke

Antwort1

Wenn Sie ein Makro erstellen, können Sie diesen Code verwenden:

Sub SetLineSpacing()
Dim sld As Slide
Dim shp As Shape

For Each sld In Application.ActivePresentation.Slides
  For Each shp In sld.Shapes
    *If shp.TextFrame.HasText Then*
       With shp.TextFrame.TextRange.ParagraphFormat
          .LineRuleWithin = msoTrue
          .SpaceWithin = 1.1
       End With
     *End If*
   Next
 Next
End Sub

Es gibt jedoch einen Fehler. Wenn Sie beispielsweise Text mit Zeilenabstand 3 haben, aber kein Platz für diesen Zeilenabstand vorhanden ist, reduziert PowerPoint ihn automatisch, z. B. auf 2,8. Wenn Sie dieses Makro dann ausführen, wird der Zeilenabstand 1,2 oder 1,3 oder so ähnlich. Erst wenn Sie das Makro ein zweites Mal ausführen, wird dieses Problem behoben. Ich konnte jedoch nicht herausfinden, woher dieses Problem kam, da der Code nach dem Debuggen beim ersten Ausführen einwandfrei funktionierte.

Antwort2

Ich weiß, das ist eine alte Frage, aber die Leute sollten wissen, dass man dafür keinen Code braucht! Ich verwende 2013, aber ich glaube, das hat 2007 genauso funktioniert. Gehen Sie einfach zu Ansicht / Folienmaster, klicken Sie auf die Masterfolie (die oberste) und dann auf den Haupttextplatzhalter. Drücken Sie Strg+A, um alles auszuwählen, klicken Sie dann mit der rechten Maustaste, wählen Sie „Absatz“ und ändern Sie den Zeilenabstand in „Mehrfach 1,1“. Voila, das wird sich auf jedes Layout und jede Folie auswirken.

Wenn Sie die Standardeinstellung für eine Folie bereits überschrieben haben, gehen Sie zu jeder dieser Folien und wählen Sie auf der Registerkarte „Start“ im Abschnitt „Folien“ die Option „Zurücksetzen“. (Beachten Sie, dass hierdurch alle Änderungen zurückgesetzt werden, die Sie an der gesamten Folie vorgenommen haben.)

verwandte Informationen