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