循环移动所有幻灯片上的图像或调整其大小

Question

我需要创建一个包含200-300张幻灯片的PowerPoint，每张幻灯片上都带有图片和人的名字。我转向PowerPoint和VBA来完成工作。我已经解决了名称问题。我已经导入了使用相册工作的图像。它将图像放大并居中放置。我转向使用宏（见下文）来移动/调整图像大小。它仅适用于一张幻灯片。我已经搜索了所有关于如何循环播放的内容，以便它将对所有幻灯片执行此操作，但我无法弄清楚。我是VBA的新手，所以我不知道从哪里开始。预先感谢您的任何建议或帮助！

Sub ResizeImages()
With ActiveWindow.Selection.ShapeRange
    .Height = 400
    .Width = 300
    .Left = 45
    .Top = 45
 End With
End Sub

Answer 1

尝试一下：

Sub resizeImage()
    Dim sld As Slide
    Dim shp As Shape

    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            With shp
                .Height = 400
                .Width = 300
                .Left = 45
                .Top = 45
            End With

        Next
    Next
End Sub