vba - 如何使用 vba 在 Powerpoint 2007 中将图像纵横比设置为 100%？

Question

我正在开发自动化工具。我想在每张幻灯片上将图像纵横比设置为 100%。在 vba 中是否有任何属性？

感谢进阶。

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