如何更改 PowerPoint 2010 演示文稿中所有图片的格式?我知道如何更改一张图片的格式,但演示文稿中有超过 40 张图片,我不想手动更改每张图片。
我想要做的改变很简单:我想给每张图片添加一个边框。如何添加边框或边框看起来怎么样并不重要。现在我右键单击图片,然后单击“设置图片格式/发光和柔和边缘”,并添加一个 5pt 发光,透明度为 0。
答案1
这个小宏可以为你完成这项工作:
Sub AddPictureBorders()
' Before running this, apply the style you want to one picture
' then use the formatting paintbrush to pick up the formatting
' This will apply the formatting to each picture.
Dim oSh As Shape
Dim oSl As Slide
For Each oSl In ActivePresentation.Slides
For Each oSh In oSl.Shapes
With oSh
' ignoring linked pictures, OLE objects
' and such
If .Type = msoPicture Then
.Apply
End If
End With
Next
Next
End Sub