☰

Powerpoint 2007 中的默认行距

tag-icon • tag-icon microsoft-office-2007 microsoft-powerpoint vba microsoft-powerpoint-2007
Powerpoint 2007 中的默认行距

我想将 Powerpoint 2007 中的默认行距设置为 1.1，而不是 Microsoft 默认的 0.8。有什么办法吗？

或者，如果我可以创建一个宏来执行此操作，我也可以做到。但是 MS 也从 PP2007 中删除了宏记录器。有人能帮忙提供 VBA 代码吗？

谢谢

答案1

好吧，如果你制作一个宏，你可以使用这个代码：

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

但是有一个缺陷。当你有一些文本的行距为 3（例如），但没有空间来设置这种行距时，powerpoint 会自动将其减小，即减小到 2.8。然后当你运行这个宏时，行距将变为 1.2 或 1.3 或类似的值。只有当你第二次运行这个宏时，它才会修复这个问题。不过，我无法弄清楚这个问题是从哪里来的，因为调试代码使它从第一次运行开始就完美无缺。

答案2

我知道这是一个老问题，但大家应该知道你不需要为此编写代码！我使用的是 2013，但我相信这在 2007 中也是一样。只需转到视图/幻灯片母版，单击母版幻灯片（顶部），然后单击主文本占位符。Ctrl-a 选择全部，然后右键单击，选择段落并将行距更改为多个 1.1。瞧，它将影响到每个布局和每张幻灯片。

如果您已经覆盖了任何幻灯片上的默认设置，请转到每张幻灯片，然后在“幻灯片”部分的“主页”选项卡上选择“重置”。 （请注意，这将重置您对整个幻灯片所做的所有更改。）

相关内容