需要在 PowerPoint 中將所有幻燈片中的形狀位置設置為相同的值

Question

我有幾十個 PowerPoint 節目，每個節目都包含幾十張幻燈片。 它們非常基礎，因為每張幻燈片上只有一個形狀，並且在形狀上或幻燈片之間沒有使用動畫。 問題是創建它們的人並沒有真正注意從幻燈片到幻燈片的形狀的垂直位置，所以從一張幻燈片到下一張幻燈片時非常明顯。

我希望能夠快速將每個幻燈片上每個形狀的垂直位置設置為相同的值。 水平位置很好。 我一直在手動完成它們，但是有很多幻燈片和幻燈片需要瀏覽，我寧願不必這樣做，因為它非常耗時。

我在這個網站和谷歌上做了一些搜索，但還沒有找到任何東西。 如果它需要 VBA 代碼，那也沒關系。

我正在使用 PowerPoint 2010。

Answer 1

作為起點（請注意，總空氣代碼）：

Sub LineEmUpDano()
  Dim oSl as Slide
  Dim sngTop as Single

  ' Pick up the top position of the first shape
  ' on the first slide:
  SngTop = ActivePresentation.Slides(1).Shapes(1).Top

  ' Apply the top position to each slide in the pres
  For Each oSl in ActivePresentation.Slides
    oSl.Shapes(1).Top = sngTop
    ' you could instead use
    ' oSl.Shapes(1).Top = 42 ' or whatever value you like
    ' Values are in points, 72 points to the inch
  Next  ' slide
End Sub

Answer 2

使用上面史蒂夫的建議作為起點，然后閱讀一些教程，我能夠想出一個工作腳本：

Sub UniformHeight()
    Dim SlideToCheck As Slide
    Dim ShapeIndex As Integer

    For Each SlideToCheck In ActivePresentation.Slides
        For ShapeIndex = SlideToCheck.Shapes.Count To 1 Step -1
            SlideToCheck.Shapes(ShapeIndex).Top = 36
        Next
    Next
End Sub