如何使用vba將Powerpoint 2007中的圖像縱橫比設置爲100％？

Question

我正在使用自動化工具。我想在每張幻燈片上將圖像縱橫比設置爲100％。 在vba中是否有任何財產？

Thanks in 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