Seite 1 von 1

Änderung Absatzabstand

BeitragVerfasst: 04. Jun 2019, 15:22
von OnkelHo
Liebe Community,
habe wahrscheinlich ein ganz einfaches Problem und hoffe, dass ihr mir helfen könnt:
Ich will Buttons erzeugen, um den Absatzabstand vor bzw. nach einzelnen Stichpunkten verändern zu können.
Dabei scheitere ich leider schon ganz am Anfang. Was bei Word anstandslos klappt, führt bei Powerpoint zu einem Laufzeitfehler "Objekt erforderlich":
Code: Alles auswählen
Selection.ParagraphFormat.SpaceBefore = 20

Ich habe dabei den Curser in einer Zeile, ohne dass etwas markiert ist.
Herzlichen Dank im Voraus,
OnkelHo

Re: Änderung Absatzabstand

BeitragVerfasst: 04. Jun 2019, 17:57
von CaBe
Hallo OnkelHo,

Dank Tante Google bin ich auf einen Uraltbeitrag unseres Forums gestoßen, der mir erste Schritte in PPT-VBA ermöglicht. Dein Problem lässt sich mit folgendem Code beseitigen.
Code: Alles auswählen
ActiveWindow.Selection.TextRange.ParagraphFormat.SpaceBefore = 20

Das fehlende Objekt ist also sowohl der Bereich (sprich das aktive Fenster) als auch TextRange.

Re: Änderung Absatzabstand

BeitragVerfasst: 05. Jun 2019, 09:43
von OnkelHo
Lieber Carsten,
ich weiß nicht, warum ich das trotz einer Stunde Suche nicht gefunden habe -.- Aber ganz herzlichen Dank, es funktioniert wunderbar! :-)
Bg,
OnkelHo