![如何更改 PowerPoint 2010 演示文稿中所有图片的格式?](https://linux22.com/image/1294891/%E5%A6%82%E4%BD%95%E6%9B%B4%E6%94%B9%20PowerPoint%202010%20%E6%BC%94%E7%A4%BA%E6%96%87%E7%A8%BF%E4%B8%AD%E6%89%80%E6%9C%89%E5%9B%BE%E7%89%87%E7%9A%84%E6%A0%BC%E5%BC%8F%EF%BC%9F.png)
如何更改 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