如何使用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