☰

Powerpoint 2007 中的預設行距

tag-icon • tag-icon microsoft-office-2007 microsoft-powerpoint vba microsoft-powerpoint-2007
Powerpoint 2007 中的預設行距

我想將 Powerpoint 2007 中的預設行距設為 1.1，而不是 Microsoft 設定為預設值的 0.8。有什麼辦法可以做到這一點嗎？

或者，如果我可以建立一個巨集來執行此操作，我也可以進行管理。但微軟也從 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”。瞧，它會波及到每個佈局和每張幻燈片。

如果您已覆蓋任何投影片的預設設置，請轉到每張投影片，然後在「投影片」部分的「首頁」標籤上選擇「重設」。 （請注意，這將重設您對整張投影片所做的所有變更。）

相關內容