如何更改 PowerPoint 2010 演示文稿中所有图片的格式?

如何更改 PowerPoint 2010 演示文稿中所有图片的格式?

如何更改 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

相关内容