VBA线间距Powerpoint

Question

我想写一个makro，用于调整PowerPoint 2013中VBA的行间距（屏幕截图）。我认为这不是问题，但我无法找到正确的命令。

许多THX !!!

这是我的第一个草稿命令（两者都有效）但不调整行间距

Sub Zeilenabstand()


     ActiveWindow.Selection.TextRange.ParagraphFormat.SpaceAfter = 0
     ActiveWindow.Selection.TextRange.ParagraphFormat.SpaceWithin = 1

End Sub