将复制内容一次复制到PPT的多张幻灯片

有时候，做完幻灯片后，需要修饰时，才发现每张幻灯片的相同位置都需要添加相同内容。如果幻灯片有很多张的话，一张张滴复制会很麻烦。这时候，VBA会让你事半功倍。
一、按Alt+F11键，选择：插入--模块，将下列代码复制在模块中
1.如需要复制到的幻灯片是连续的，代码如下
Sub copyPict()
ActiveWindow.Selection.ShapeRange.Copy
For i = 4 To 20 '复制到4～20号幻灯片中，根据需要选择
ActivePresentation.Slides.Range.Item(i).Shapes.Paste
Next
End Sub
2.如果需要复制到不连续的幻灯片中，代码如下
Sub copyPict()
ActiveWindow.Selection.ShapeRange.Copy
ActivePresentation.Slides.Range(Array(2, 3, 5)).Shapes.Paste '复制到第2,3,5张幻灯片中，根据需要选择
End Sub
二、运行代码
首先将宏安全级别设为低。
选择要复制的图片和文字，按Alt+F8键，运行copyPict。