如何在 Power Point 中使用宏对齐不同幻灯片上的图片

Question

我有以下宏可在 Power Point 中一次对齐 1 张选定图片：

Sub Align()
      With ActiveWindow.Selection.ShapeRange 
              .Left = 50
              .Top = 100
      End With
End Sub

如果我运行幻灯片中选定图片上的宏，则此代码有效。

但是我如何运行为所有幻灯片的每张图片使用此脚本？

Answer 1

这会为你做到这一点何塞：

' PowerPoint VBA to reposition all pictures in all slides in a deck
' Written by Jamie Garroch of YOUpresent Ltd.
' http://youpresent.co.uk/

Option Explict

Sub RepositionAllPictures()
  Dim oSld As Slide
  Dim oShp as Shape
  For Each oSld in ActivePresentation.Slides
    For Each oShp in oSld.Shapes
      If oShp.Type = msoPicture Then RepositionShape oShp
      If oShp.Type = msoPlaceholder Then
        If oShp.PlaceholderFormat.ContainedType = msoPicture Or _
           oShp.PlaceholderFormat.ContainedType = msoLinkedPicture Then _
             RepositionShape oShp
      End If
    Next
  Next
End Sub

Sub RepositionShape(oShp As Shape)
  oShp.Left = 50
  oShp.Top = 100
End Sub

如何在 Power Point 中使用宏对齐不同幻灯片上的图片

How to align pictures on different slides using a macro in Power Point

powerpoint

vba