如何使用vba在Powerpoint 2007中将图像宽高比设置为100％？

Question

我正在研究自动化工具。我想在每张幻灯片上将图像宽高比设置为100％。 在vba中是否有任何财产？

感谢Adv。

Answer 1

你的意思是这样吗？

Option Explicit

Sub Sample()
    Dim shp As Shape

    Set shp = ActivePresentation.Slides(1).Shapes("Picture 1")

    With shp
        .ScaleHeight 1, msoTrue
        .ScaleWidth 1, msoTrue
    End With
End Sub