在 PowerPoint 2016 中调整图像大小的 VBA 代码

Question

我在学习 VBA 的第一周，我正在寻找一个 VBA 代码，它可以帮助我调整粘贴到 PowerPoint 2016 中的图片的大小和位置。所需的图片格式详细信息如下:

尺寸
- 高度 = 3.39"
- 宽度 = 6.67"
- 旋转 = 0
- 比例高度 = 62%
- 刻度宽度 = 62%
- 纵横比 = 锁定
- 相对于原图大小=true

位置
- 水平位置 = 0
- 左上角
- 垂直位置 = 2.06
- 左上角

如有任何帮助，我们将不胜感激。

Answer 1

下面是对我有用的代码。感谢支持。

Sub ResizeAll()
For Each tSlide In ActiveWindow.Presentation.Slides
    tSlide.Select
    With tSlide.Shapes.Item(1)
    'assume a blank slide with one image added only
        .Select
        .Height = 72 * 3.39
        .Width = 72 * 6.67
    'algin middle (Horizontal Center)
        .Left = 0
        .Top = ActivePresentation.PageSetup.SlideHeight / 3.25
    End With
Next
End Sub