イメージを設定する方法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