ppt宏 想请教高人给写一个宏

来源：百度知道 编辑：UC知道 时间：2024/09/28 15:23:19
因为单位老弄ppt 一弄就好几百张PPT 照片还得拉来拉去的 麻烦 想请教高人给写一个宏 留QQ 谢谢

分太少 看你新人份上
Sub picFormat()
For Each sl In ActivePresentation.Slides
For Each pic In sl.Shapes
With pic
.Fill.Transparency = 0#
.LockAspectRatio = msoFalse
.Height = 170#
.Width = 283.38
End With
Next
Next
End Sub