是否有任何VBA代码来对齐PowerPoint中的图片？

我有一份包含239张幻灯片的PowerPoint文档。我必须按照以下两个步骤对齐每张幻灯片中的图片：

1。右键单击并选择编辑图片

2.然后按YES

我的问题：是否有任何宏（vba代码）可以自动完成所有这项工作？

---

谢谢

Microsoft以WMF或EMF格式存储复杂的矢量对象，为了编辑它们，需要将它们转换为原生MSO图形对象（矢量）。执行此操作的过程是将其解组，此代码将在整个演示文稿中执行此操作：

Option Explicit

' ===================================================================
' Purpose : Loop through each shape of each slide in a presentation
'           and ungroup and WMF files, thereby converting them to
'           MSO drawing objects that can be edited.
' Author  : Jamie at YOUpresent Ltd. http://youpresent.co.uk/
' ===================================================================
Sub ConvertAllMetafilePicturestoGroups()
  Dim oSld As Slide
  Dim oShp As Shape
  For Each oSld In ActivePresentation.Slides
    For Each oShp In oSld.Shapes
      On Error Resume Next ' In case picture is a bitmap and not a WMF vector
      If oShp.Type = msoPicture Then oShp.Ungroup
      On Error GoTo 0
    Next
  Next
  ' Clean up
  Set oShp = Nothing: Set oSld = Nothing
End Sub

---

如果您愿意/需要，可以再次取消分组。

请回答一个问题。代码正在运行，但为什么这段代码要复制幻灯片中的所有图形，并将其放在我按下click的一张幻灯片中？谢谢我不确定我是否理解鲁丽。代码不应该复制任何内容。它只是在所有幻灯片的所有形状中循环，并尝试对任何“picture”类型的幻灯片进行解组。你怎么给潜艇打电话？