在VBA PowerPoint中调整图像大小

Question

我在下面的案例中需要帮助：

我制作了一个代码来调整幻灯片中的所有图像的大小，但是我不能让每个图像都有不同的大小，当我使用宏时，幻灯片的所有图像都是标准的。 / p>

按照代码：

Sub Slide()

    Dim sld As Slide
    Dim img As Shape


    For Each sld In ActivePresentation.Slides
        For Each img In sld.Shapes

            With img                
                If .Type = msoLinkedPicture _
                Or .Type = msoPicture Then
                   .Left = 100
                   .Top = 100
                End If
            End With

        Next
    Next sld

End Sub

Answer 1

您可以将图像存储在形状范围内，然后调用该形状范围内的其他，分布和对齐方法。例如，我编写了一些代码，将图像存储在幻灯片中。一个数组，设置图像的高度，宽度和左侧，然后垂直分布。

user_ids

这在您的示例中不能很好地工作，但是应该为您指明正确的方向。此时的真正问题是，很难确定幻灯片上有多少个形状以及如何排列它们。例如，如果有三个以上的形状，您是否想要其他形状在幻灯片的右侧？一旦我们弄清楚了这一点，我们就能为您指明正确的方向。

尽管如此，我还是鼓励您使用Shape Range，因为我们可以在代码中利用内置方法。